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finite  element  in  the  commercial  finite  element  program  ABAQUS.  The  element,  designated 
HOT3,  is  based  on  a  { l, 2} -order  plate  theory  specifically  formulated  to  model  thin  and  thick  com¬ 
posite  laminates  and  exhibits  improved  accuracy  compared  to  conventional  shear-deformable  shell 
finite  elements.  This  report  describes  the  use  of  HOT3  in  ABAQUS  for  static  and  vibration  anal¬ 
yses  by  presenting  the  required  element  input  data  together  with  numerical  examples.  Sample 
input  and  output  datasets  and  the  complete  FORTRAN  subroutine  which  performs  all  computa¬ 
tions  for  the  HOT3  dement  are  included. 
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Introduction 


Research  at  Army  Research  Laboratory-Watertown  has  led  to  the  development  of  a  higher- 
order  plate  theory  [1,2]  which  represents  the  state  of  the  art  in  modeling  thick  composites  using 
an  equivalent  single-layer  type  formulation.  The  theory  has  been  incorporated  into  a  3-node 
anisoparametric  facet  shell  finite  element  designated  HOT3.  The  HOT3  element  is  a  versatile 
displacement-based  finite  element  incorporating  higher-order  kinematic  expansions  for  use  within 
the  conventional  ’h-versicn’  finite  element  framework  where  nodal  degrees  of  freedom  are  restrict¬ 
ed  to  displacements  and  rotations.  The  higher-order  field  representation  in  HOT3  provides  greater 
accuracy  in  the  thick  regime  when  compared  to  Reissner-Mindlin  shear  deformable  elements  with 
virtually  the  same  computational  cost 

This  report  outlines  the  use  of  the  HOT3  element  in  ABAQUS  via  a  user-defined  element  sub¬ 
routine.  A  discussion  of  die  HOT?  element  and  ABAQUS  support  of  user-defined  elements  is  pre¬ 
sented  in  the  following  sections  followed  by  two  numerical  examples  illustrating  tne  use  of  HOT3 
in  ABAQUS  for  static  and  dynamic  analysis.  Sample  input  and  output  datasets  and  the  complete 
FORTRAN  source  code  supporting  the  HOT3  element  in  ABAQUS  are  contained  in  separate  ap¬ 
pendices. 

HQT3  Shell  .Element 


HOT3  has  been  formulated  as  a  triangular  shell  element  incorporating  transverse  shear  and 
transverse  normal  deformation  modes.  As  shown  in  Figure  1,  HOT3  has  three  vertex  nodes  with 
all  6  degrees  of  freedom  defined  together  with  an  internal  node  which  represents  two  constant  el¬ 
ement  degrees  of  freedom,  wl  and  w2,  which  represent  the  higher-order  transverse  displacement 
variables.  In  elastostatic  analysis  these  two  element  degrees  of  freedom  are  statically  condensed 
out  at  the  element  level  in  the  computation  of  the  element  stiffness  matrix  and  the  internal  node  is 
not  defined  by  the  user.  In  dynamic  analysis,  however,  the  inertial  contributions  of  these  higher- 
order  functions  are  not  condensed  out  and  an  internal  node  must  be  defined  and  assigned  two  de¬ 
grees  of  freedom.  The  location  of  this  node  is  arbitrary  and  is  used  to  represent  the  stiffness  and 
mass  associated  with  the  higher-order  element  variables  which  are  internally  stored  as  the  first  two 
degrees  of  freedom.  The  remaining  four  degrees  of  freedom  at  the  interior  node  -  which  physically 
do  not  exist  -  must  therefore  be  restrained  through  single-point  boundary  constraints  when  using 
HOT3  in  a  dynamic  analysis.  Complete  details  of  the  element  formulation  may  be  found  in  [2,3,4]. 


Figure  1.  HOT3 :  A  facet  shell  element  incorporating  transverse  shear  and  transverse  normal 
deformation  modes. 


H0T3  may  be  defined  arbitrarily  in  space  using  a  counterclockwise  node  numbering  conven¬ 
tion.  rhe  element  coordinate  system  (x’.y’.z’)  is  shown  in  Figure  2.  The  x’  axis  is  defined  along  the 
element  side  from  node  1  to  node  2-  with  the  y’  axis  perpendicular  to  x’  and  lying  in  the  element 
plane.  The  transverse  axis  z’  is  defined  as  normal  to  the  element  plane.  A  local  coordinate  system 
(x”,y”,z”)  is  also  defined  with  the  origin  at  node  1  and  coordinate  axes  alligned  with  the  global 
coordinate  system  (x,y,z).  In  static  analysis,  element  output  can  be  selected  in  either  the  local  or 
element  coordinate  system. 


For  complicated  geometries  where  the  material  axes  do  not  correspond  to  the  global  coordinate 
system,  a  material  coordinate  system  may  be  defined  for  each  H013  element  by  specifying  the 
longitudinal  (Ml)  and  transverse  (M2)  material  axes.  The  normal  material  axis  (M3)  is  assumed 
perpendicular  to  the  plane  formed  by  Ml  and  M2  .The  material  coordinate  system  is  centered  at  the 
origin  of  the  element  local  coordinate  system  and  the  vector  components  of  the  material  axes  are 
computed  in  the  local  system.  This  is  depicted  in  figure  3. 


Figure  3.  Specification  of  material  axes  in  HOT3. 


User. Defined  Elements  in  ABAOIIS 


New  finite  elements  may  be  implemented  in  ABAQUS  by  developing  a  subroutine  denoted 
UEL  (for  User  ELement)  which  perfoms  the  neccessary  element  computations  and  interfaces  with 
the  main  ABAQUS  program  through  a  standardized  parameter  list  in  the  subroutine  call  statement. 

The  *USER  SUBROUTING  statement  in  the  input  deck  alerts  ABAQUS  to  the  presence  of 
user-defined  subroutines  which  either  immediatelly  follow  this  data  entry  or  are  contained  in  a  sep¬ 
arate  file.  These  subroutines  are  then  compiled  and  linked  to  the  main  ABAQUS  executable  prior 
to  job  execution.  A  complete  description  of  this  and  other  user-defined  capabilities  in  ABAQUS 
may  be  found  in  reference  [5]. 

Shown  in  Figure  4  is  the  basic  format  of  the  UEL  subroutine  with  the  argument  list  used 
by  ABAQUS  to  pass  into  the  user-defined  subroutine  all  the  neccessary  information  needed  to 
compute  element  stiffness  and  mass  matrices.  Once  computed,  these  matrices  are  then  passed  back 
to  ABAQUS  for  global  assembly  and  problem  solution.  In  static  analysis,  data  recovery  is  per¬ 
formed  during  a  second  pass  through  the  user-defined  subroutine  after  the  global  solution  has  been 
obtained.  During  this  phase,  ABAQUS  passes  in  the  nodal  displacements  for  the  current  element 
from  which  all  element  stresses,  strains  and  forces  can  be  computed.  In  dynamic  analysis,  frequen¬ 
cies  and  mode  shapes  are  computed  within  ABAQUS;  however,  individual  eigenvectors  are  not 
passed  back  into  the  user-defined  subroutine  and,  hence,  modal  stresses  and  strains  are  not  avail¬ 
able.  It  should  be  noted  that,  in  addition  to  linear  static  and  dynamic  analysis,  the  information 
passed  into  the  UEL  subroutine  is  sufficient  to  support  material  and  geometric  nonlinear  analysis. 

The  complete  source  code  for  the  HOT3  element  supporting  linear  static  and  dynamic  anal¬ 
ysis  in  ABAQUS  is  listed  in  appendix  A. 


SUBROUTINE  UEL  (  RHS,  AMATRX,  SVARS,  ENERGY,  NDOFEL,  NRHS 

1  NSVARS,  PROPS,  NPROPS,  COORDS,  NCRD,NNODE. 

2  U,  DU,  V,  A,  JTYFE,  TIME,  DTIME,  KSTEP,  KINC, 

3  JELEM,  PARAMS,  NDLOAD,  JDLTYP,  ADLMAG 

4  PREDEF,  NPREDF,  LFLAGS,  MLVARX,  DDLMAG, 

5  MDIOAD,  PNEWDT ) 

C 

REAL  DOUBLE  PRECISION  (  A-H,  0-Z ) 

C 

DIMENSION  RHS(MLVARX,*),AMATRX(NDOFEL,NDOFEL),  SVARS(l), 

1  ENERGY(8)J*ROPS(*),  COORDS(MCRD,NNODE), 

2  U(NDOFEL),  DU(NDOF£L),  V (NDOFEL,  A(NDOFEL), 

3  TIME(2),  PARAMSW,  JDLTYPE(MDLOAD,*),  LFLAGS(51, 

4  ADLMAG(MDLOAD,*),  DDLMAG(MDLOAD  ,*), 

5  PREDEF(2,NPREDF,NNODE) 

*  Source  code  for  the  HOT3  element  * 

RETURN 

END 


Figure  4.  Format  of  the  user-defined  subroutine  UEL  supporting  the  HOT3  element  in 
ABAQUS. 
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Use  of  HOT3  fa  ABACUS 


Three  sets  of  statements  are  used  to  describe  HOT3  in  the  ABAQUS  input  deck.  Each  of  these 
statement  sets  may  be  identified  in  the  sample  input  files  presented  in  Appendices  B  and  C.  The 
first  set,  *USER  ELEMENT,  defines  the  basic  parameters  of  the  HOT3  element.  All  parameters 
are  manditory  and  the  user  must  set  the  N  and  M  values  in  the  NODES  and  PROPERTIES  param¬ 
eters  as  described  belov . 

Statement  set  I; 

(i)  *USER  ELEMENT,  NODES=N,  TYPE=U1,  PROPERTIES=M,  COORDINATES=6 

(ii)  U,3,4,5,6 

where  the  various  input  parameters  are: 

Card  (i):  NODES=3  specifies  that  only  3  comer  nodes  are  being  defined  for  static  analysis. 

NODES  =4  specifies  that  an  additional  internal  node  is  being  defined  for  dynamic 
analysis. 

TYPE=U1  specifies  the  internal  designation  of  the  HOT3  element  in  the 
user-defined  subroutine  as  Ul. 

PROPERTIES=M  specifies  that  a  user-defined  property  list  of  length  M  is 
to  be  established  for  each  KOT3  element  as  expained  below. 

COORDINATES  =6  indicates  that  cartesit  n  coordinates  are  assumed  for 
the  element  together  with  possible  specifu  ation  of  direction  cosines  for 
a  nomal  vector  to  the  element  plane  at  each.  node. 

Card  (ii):  Specifies  that  all  6  degrees  of  freedom  are  defined  as  active  at  each  HOT3 
node.  If  an  internal  node  is  defined,  degrees  of  freedom  3  through  6  must  be 
constrained  at  this  node. 

The  second  entry,  *UEL  PROPERTY,  is  the  primary  list  of  input  data  used  to  compute  element 
quantities  for  each  HOT3  element  The  size  of  this  list  is  determined  by  the  user  as  a  function  of 
the  total  number  of  layers  in  the  element  Only  a  single  layer  would  be  specified  for  a  homoge¬ 
neous  plate  whereas,  for  a  composite,  the  number  of  layers  would  correspond  to  the  number  of  plies 
in  the  laminate.  ABAQUS  requires  for  each  line  in  the  property  list  that  all  quantities  be  written 
as  real  numbers  in  free  format  with  eight  entries  per  line  -  missing  entries  are  simply  treated  as  ze¬ 
ros.  In  the  format  of  the  property  list  shown  below,  the  total  length  of  the  property  list  is  calculated 
as  8*(2*NLAY+3).  This  length  is  entered  as  a  parameter  on  the  *USER  ELEMENT  entry. 

Statement  set  II; 

(i)  *UEL  PROPERTY,  ELSET=NM 

(ii)  NLAY,  RHO,  LI,  L2,  L3,  OUTPUT,  NPTS 

(in)  El,  E2,  E3,  G12,  G23,  G31 

(iv)  NU12,NU23,NU31,  THICK,  THETA 

(v)  S1,S2,  S3,  D1,D2,  D3 

(vi)  NSOL,  NSYS,  Mix,  Mly,  Mlz,  M2x,  M2y,  M2z 


4 


where  the  input  parameters  are  defined  as: 

Card  (i):  NM  is  the  set  Id  of  HOT3  elements  for  which  the  following  properties 
are  to  be  used. 

Card  (ii):  NLAY  is  the  number  of  layers  in  the  element 
RHO  is  the  material  density. 

L1-L3  are  the  nodal  magnitudes  of  linearily  distributed  loads  over  the 
element  in  the  order  in  which  the  element  nodes  are  specified  on  the 
♦ELEMENT  input  data  entry. 

OUTPUT  is  an  output  control  flag  for  HOT3  element  data; 

OUTPUT=0  for  surpression  of  all  HOT3  element  output 
OUTPUT=l  for  stresses ,  strains  and  displacements  through  the 
element  thickness,  grid  point  forces  and  element 
strain  energy. 

OUTPUT=2  for  element  stiffness  matrix  and  consistent  load  vector 
only. 

OUTPUT=3  for  all  of  the  above  element  data 
NPTS  is  the  number  of  equally  spaced  recovery  points  through  the  thickness. 
Card  (iii):  E1-G31  are  the  layer  normal  and  shear  moduli. 

Card  (iv):  NU12-THETA  are  the  layer  Poisson  ratios, thickness  and  orientation  with 
respect  to  the  global  or  material  coordinate  system.  Note  that  the  two 
material  property  cards,  (iii)  and  (iv),  are  repeated  NLAY  times  in  order  to 
specify  material  properties  for  each  layer  in  the  element. 

Card  (v):  S1-S3  and  D1-D3  are  the  locations  for  stress  and  displacement  recovery 
given  in  local  triangular  coordinates  where  the  vertices  correspond  to  the 
node  order  specified  on  the  ♦ELEMENT  bulk  data  entry. 

Card  (vi):  NSOL  =  1  or  2  for  static  and  dynamic  analysis  respectively. 

NSYS  =  1  for  element  output  in  the  global  coordinate  system 
=  2  for  element  output  in  the  element  coordinate  system. 

Mlx,Mly,Mlz  =  vector  components  defining  the  longitudinal  material  axis 
M2x,M2y,M2z  =  vector  components  defining  the  transverse  material  axis. 

The  last  entry  is  the  *USER  SUBROUTINE  statement.  As  stated  above,  this  alerts  ABAQUS  to 
the  presence  of  source  code  which  is  to  be  included  together  with  the  main  executable  code  prior 
to  running  the  requested  job.  This  data  statement  is  depicted  below. 

Statement  set  III; 

(i )  *USER  SUBROUTINE,  INPUT=uel_hot3.f 

where  the  optional  parameter  INPUT  specifies  the  name  of  the  external  file  containing 
the  source  code  for  the  HOT3  element  If  this  parameter  is  omitted,  ABAQUS  assumes 
that  the  source  code  immediately  follows  this  statement. 


j  i  iiii  i  fri  >  t'litiiii  wTo  i]  r  j  TTalBM  H )  to* 


In  Reference  [21  the  problem  of  cylindrical  bending  of  a  thick  composite  laminate  has  been 
solved  using  the  HOT3  element  As  shown  in  figure  5,  the  finite  element  model  consists  of  a  single 
strip  of  HOT3  elements  spanning  one  quarter  of  the  loading  wavelength  (L/2)  in  which  appropriate 
multipoint  constraints  are  applied  to  simulate  the  cylindrical  bending  features  of  this  infinite 
plate.  The  composite  selected  is  a  carbon/epoxy  symmetric  angle-ply  ([30/-30],)  laminate  subject¬ 
ed  to  a  sinusoidal  transverse  pressure.  The  ply  material  properties  are  taken  as 

E|  =  25x10^  psi,  Et  =  106  psi 

Gjt  =  .SxlO6  psi,  Gu  =  .2X106  psi 

Vk=Vu  =  .25 

where  1  and  t  denote  the  longitudinal  and  transverse  ply  material  directions,  respectively.  A  sam¬ 
ple  input  dataset  showing  the  use  of  the  various  data  statements  defining  the  HOT3  element  geom¬ 
etry,  material  properties,  and  distributed  loading,  together  with  the  complete  ABAQUS  output  are 
summarized  in  Appendix  B. 


Figure  5.  Finite  element  discretization  of  a  carbon/epoxy  [30/-30J,  laminate  subject  to 
sinusoidal  pressure  in  cylindrical  bending. 


6 


Figure  6  shows  the  percent  error  of  the  maximum  midplane  transverse  displacement  as  a  func¬ 
tion  of  the  loading-to-thickness  ratio  (L/2h).  In  this  and  subsequent  figures,  results  are  shown  var¬ 
iously  as  HOT_AN AL  YTIC  when  obtained  analytically  by  way  of  the  higher-order  theory,  as  EX¬ 
ACT  using  an  exact  elasticity  approach  [6],  as  CPT  using  classical  laminate  plate  theory,  and  as 
HOT_FEM  results  from  the  present  finite  element  analysis  using  HOT3  in  ABAQUS.  Also,  in  Fig¬ 
ure  6,  results  corresponding  to  standard  shear-deformable  plate  theory  are  presented  and  labeled  as 
SHEAR_DEF.  All  displacement  and  stress  quantities  have  been  normalized  in  accordance  with  [2]. 


U2h 


Figure  6.  Percent  error  of  maximum  midplane  deflection  versus  L/2h  ratio 


Figure  7  depicts  the  through-thickness  distributions  of  the  maximum  normal  (e„)  and  inplane 
shear  (y,,)  strains.  As  noted  in  reference  [2],  close  agreement  with  the  exact  solution  is  obtained 
for  U2h  =  10.  In  the  thick  regime  with  L/2h  =  4  the  departure  from  the  exact  solution  is  due  to 
the  linear  approximations  made  for  the  inplane  u,  and  u,  displacements  which,  as  evidenced  by  the 
elasticity  solution,  become  increasingly  nonlinear  particularly  in  the  outer  plies. 

Figure  8  shows  the  through-thickness  distributions  of  the  transverse  shear  (yj  and  transverse 
normal  (£»)  strains.  It  may  be  noted  that  the  transverse  shear  strain  distribution  compares  favorably 
with  the  exact  solution  in  a  resultant  sense;  the  assumed  parabolic  distribution  in  the  theory  cannot 
match  the  exact  distribution  for  general  laminates.  The  assumed  cubic  variation  in  the  transverse 
normal  strain  is  seen  to  compare  satisfactorily  with  the  exact  solution  even  in  the  thick  regime  for 
the  particular  laminate  selected. 
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Z/2b  2/2h  I  'l  Z/2h  z/2h  ’ 


Distribution  of  inplane  strains  across  thickness  for  L/2h  =  10  and  4. 


Figure  8.  Distribution  of  transverse  strains  across  thickness  for  L/2h  =  10  and  4. 
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Demonstation  Problem  II  -  Dynamic  Analysis 


The  problem  of  determining  the  natural  vibrational  frequencies  of  a  simply  supported  plate  as 
shown  in  Figure  9  is  considered  Modes  associated  with  the  free  vibration  of  plates  may  be  desig¬ 
nated  as  symmetric  or  antisymmetric  depending  on  the  relative  motion  of  die  inplane  displace¬ 
ments  with  respect  to  the  midplane.  Specific  modes  are  identified  as  combinations  of  bending, 
stretching,  and  shearing  motions  and  are  ranked  with  an  order  of  harmonics  denoted  here  as  modal 
sets  (m,n).  In  order  to  demonstrate  the  accuracy  of  the  higher-order  theory,  analytic  results  from 
Ref.  [7]  for  natural  frequencies  of  orthotropic  and  laminated  composite  plates  are  presented  fol¬ 
lowed  by  a  discussion  on  the  use  of  HOT3  with  ABAQUS  in  dyu  *nic  analysis.  Figure  10  shows 
the  six  lowest  modes  associated  with  symmetric  and  antisymmetric  vibration  corresponding  to  the 
lowest  harmonic,  (m,n)  =  (1,1)  which  are  closely  correlated  with  exact  modes. 


Figure  9.  Simply-supported  rectangular  plate  used  in  vibration  analysis. 


Antisymmetric  Modes  Symmetric  Modes 


Figure  10.  Mode  shapes  for  thick,  simply-supported  square  plate,  (m,n)  =  (1,1). 
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Tables  1  and  2  show  normalized  antisymmetric  and  symmetric  natural  frequencies  of  an  ortho¬ 
tropic  plate  for  various  modal  numbers.  HOT3  is  capable  of  predicting  seven  thickness  modes  - 
three  symmetric  and  four  antisymmetric  modes.  The  symmetric  modes  are  the  lowest  frequency 
inplane  stretch  and  thickness  stretch  modes  denoted  by  I(s),  II(s),  and  III(s)  respectively.  The  an¬ 
tisymmetric  modes  are  the  f  undamental  bending  mode  1(a),  the  two  lowest  frequency  thickness 
shear  modes,  11(a)  and  111(a),  and  the  second  thickness-stretch  mode  V(a).  For  each  mode,  the 
higher-order  theory  results,  labeled  ‘HOT’,  are  compared  with  exact  solutions  derived  from  three- 
dimensional  elasticity.  The  material  properties  used  are  given  by  the  following  ratios  of  the  elastic 
stiffness  coefficients: 

C22/C1 1  =  0.543103,  C33/CJ  j  =  0.530172,  C12A 1  =  0.233190 
Ci3/Cn  =0.010776,  C23/Cn  =  0.098276,  C^Cn  =  0.266810 
C55/CH  =  0.159914,  Ctf/Cn  *  0.262931. 


Table  1.  Comparision  of  nondimensionalized  natural  frequencies,  X  =  (O(2h)(p/C|j)1'2of 
orthotropic  square  plate  (2h/L=0.1)  for  antisymmetric  modes  1(a),  11(a),  III(a),V(a). 


Wave  Number 

Mode  1(a) 

Mode  11(a) 

Mode  111(a) 

Mode  V(a) 

m 

n 

Exact 

HOT 

Exact 

HOT 

Exact 

HOT 

Exact 

HOT 

1 

1 

0.0474 

0.0474 

1.3077 

1.3078 

1.6530 

1.6530 

4.5625 

4.5763 

3 

1 

0.2180 

0.2173 

1.5777 

1.5780 

1.7334 

1.7336 

4.5907 

4.5790 

3 

3 

0.3320 

0.3309 

1.5737 

1.5737 

1.9289 

1.9296 

4.5064 

5.5874 

4 

1 

0.3319 

0.3301 

1.7179 

1.7179 

1.8458 

1.8554 

4.6178 

4.5813 

4 

2 

0.3707 

0.3687 

1.6940 

1.6940 

1.9447 

1.9453 

4.5775 

4.5845 

Table  2.  Comparision  of  nondimensionalized  natural  frequencies,  X  =  (0(2h)(p/Ci|)lMof 
orthotropic  square  plate  (2h/L=0. 1)  for  symmetric  modes  I(s),  Il(s),  Ill(s). 


1  Wave  Number 

Mode  n(s) 

m 

n 

Exact 

HOT 

Exact 

HOT 

Exact 

iflSli 

1 

1 

0.2170 

0.2170 

0.3941 

0.3941 

2.2722 

12879 

3 

1 

0.5029 

0.5029 

0.9731 

0.9728 

2.2396 

2.2880 

3 

3 

0.6504 

0.6503 

1.1814 

1.1813 

2.2273 

2.2918 

4 

1 

0.6591 

0.6591 

1.2795 

1.2794 

2.2346 

2.2880 

4 

2 

0.7028 

0.7027 

1.3453 

1.3452 

2.2319 

2.2895 

Tables  3, 4  and  3  compare  the  fundamental  bending  frequencies  for  various  thickness  ratios  in 
a  symmetric  [0/90/90/0],  unbalanced  [0/90],  and  an  antisymmetric  angle-ply  [4S/-4S]  laminates. 
Several  analytic  plate  theories  and  the  exact  elasticity  solution  when  available  are  included  for 
comparison.  These  theories  are:  The  higher-otder  theory  as  described  in  Reference  [7]  designated 
‘HOT’,  higher-order  shear-deformable  theory  of  Reddy  and  Phan  [8]  designated  ‘HSDPT’,  first- 
order  shear-deformable  theory  designated  ’FSDPT’,  and  the  classical  plate  theory  designated 
‘CPT’.  The  ply  material  properties  are  taken  as: 

Ej  =  l.OxlO6  psi,  Et  =  0.025x10s  psi 

Glt  =  . 0125x10s  psi,  Gtt  =  . 015x10s  psi 

Vjt  =  Vu  =  .25 


Table  3.  Comparision  of  nondimensionalized  fundamental  frequencies,  X  =  CO(L2/2h)(p/E2)1/2, 
for  symmetric,  cross-ply,  [Q/90]s,  square  plates. 


2h/L 

Exact 

HOT 

HSDPT 

FSDPT 

CPT 

0.50 

5.2600 

5.4914 

5.576 

5.4926 

15.830 

0.25 

9.2242 

9.4401 

9.497 

9.4231 

17.907 

0.20 

10.748 

10.910 

10.989 

10.892 

18.215 

0.10 

15.149 

15.173 

15.270 

15.161 

18.652 

0.08 

16.187 

16.194 

16.276 

16.185 

18.707 

0.05 

17.626 

17.623 

17.668 

17.618 

18.767 

0.04 

18.023 

18.019 

18.050 

18.016 

18.780 

0.02 

18.605 

18.598 

18.606 

18.597 

18.799 

0.01 

18.753 

18.753 

18.755 

18.752 

18.804 

Table  4.  Comparision  of  nondimensionalized  fundamental  frequencies,  X = ©( L^hXp/E^1^2, 
for  antisymmetric,  cross-ply,  [0/90],  square  plates. 


2h/L 

Exact 

HOT 

HSDPT 

FSDPT 

CPT 

0.50 

4.7040 

5.1798 

5.699 

5.1672 

8.4987 

0.25 

7.3447 

7.9764 

8.294 

7.9534 

10.292 

0.20 

8.1859 

8.7590 

9.010 

8.7385 

10.584 

0.10 

10.088 

10.356 

10.449 

10.347 

11.011 

0.08 

10.435 

10.623 

10.686 

10.617 

11.066 

0.05 

10.859 

10.942 

10.968 

10.939 

11.125 

0.04 

10.966 

11.020 

11.037 

11.018 

11.139 

0.02 

11.113 

11.128 

11.132 

11.127 

11.158 

0.01 

11.151 

11.155 

11.156 

11.155 

11.163 
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Table  5.  Comparision  of  nondimensionalized  fundamental  frequencies,  X = (Q(L2/2h)(p/E2) 1^2, 
for  antisymmetric,  angle -ply,  [45M5],  square  plates. 


2h/L 

HOT 

HSDPT 

FSDPT 

CPT 

0.50 

5.4871 

6.283 

5.490C 

6.2832 

0.25 

9.1439 

9.759 

9.1270 

12.566 

0.20 

10.322 

10.840 

10.304 

13.885 

0.10 

13.038 

13.263 

13.028 

14.439 

0.08 

13.546 

13.704 

13.539 

14.510 

0.05 

14.177 

14.246 

14.174 

14.587 

0.04 

14338 

14.383 

14.335 

14.605 

0.02 

14.561 

14.572 

14.560 

14.630 

0.01 

14.618 

14.621 

14.618 

14.636 

To  demonstrate  the  use  of  HOT3  for  dynamic  analysis,  a  particular  example  from  Table  3  for  a 
[0/90]s  composite  plate  with  a  thickness  ratio  equal  to  0.2  is  examined.  The  results  using  HOT3  are 
compared  with  those  obtained  using  ABAQUS  STRI3  discrete  Kirchhoff  and  S4R  first-order 
shear-deformable  elements.  The  thickness  ratio  used  was  selected  to  demonstrate  element  behavior 
in  the  thick  regime.  Figure  1 1  shows  typical  discretizations  of  the  plate  using  3-noded  HOT3  ele¬ 
ments.  Figure  12  depicts  convergence  of  the  fundamental  bending  frequency  with  mesh  refine¬ 
ment.  The  STRI3  element  converges  to  a  frequency  approximately  15%  above  the  exact  solution 
showing  the  effect  of  neglecting  transverse  shear  and  normal  deformation  at  this  thickness  ratio. 
The  S4R  shear-deformable  element  is  seen  to  converge  below  the  exact  solution  which  is  due  to  a 
combination  of  excluding  transverse  normal  deformation  and  the  use  of  an  empirically  set  shear 
stiffness  relaxation  parameter  in  the  element  formulation.  A  sample  ABAQUS  input  and  output  file 
corresponding  to  the  8-element  model  shown  in  Figure  1 1  is  included  in  Appendix  C  to  show  the 
required  input  format  and  typical  output 


******** 

******** 

******** 

******** 

******** 

******** 

******** 

******** 


8  Elements 


32  Elements 


128  Elements 


Figure  II.  Typical  finite  element  discretizations  of  a  square  plate  with  triangular  elements. 
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Figure  12.  Convergence  of  the  fundamental  bending  frequency  of  HOT3 ,  ABAQUS  S4R 
and  STRI3  elements  for  a  square  [0/90]s  laminated  composite  plate. 


CondutliDgKcroarte 

HOT3  is  a  higher-order  three-node  facet  shell  element  incorporating  both  transverse  shear  and 
transverse  normal  strain  and  stress  effects.  The  element  provides  improved  accuracy  when  com¬ 
pared  with  conventional  shear-deformable  finite  elements  with  virtually  the  same  computational 
cost.  A  user-defined  subroutine  has  been  developed  allowing  the  user  of  the  commercial  finite  el¬ 
ement  code  ABAQUS  to  obtain  die  computational  benefits  of  the  HOTS  element.  The  complete 
source  code  which  performs  all  computations  for  HOT3  in  ABAQUS  is  contained  in  this  report 


Aknflfftajgtmtnl 

The  authors  wish  to  thank  Colin  Freese  for  restructuring  the  user-defined  subroutine  UF.L 
presented  in  appendix  A  for  more  efficient  operation  within  ABAQUS. 
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APPENDIX  A 


Source  code  listing  of  subroutine  UEL 
supporting  the  IIOT3  element  in 
ABAQUS. 


onooooooooooonooooooooov'ioooooonoo  '  o  n 


*****************************4***** 

SUBROUTINE  UEL  (  RHS,  AMATRX,  SVARS,  ENERGY,  NDQFEL,  NRHS, 

ft  NSVARS,  PROPS,  NPROPS,  COORDS,  NCRD,  NBODE, 

k  U,  DU,  V,  AG,  JTYPE,  TIME, 

k  DUNE,  KSTEP,  KINC,  JlfLEM,  PARANS,  NDLOAD, 

k  JDLTYP,  ADLMAG ,  PREDEF,  NPREDF,  LFLAGS ,  MLVARX, 

ft  DDLMAG,  NDLOAD,  PNEWDT  ) 

USER  DEFINED  ELEMENT  SUBROUTINE  FOR  SUPPORTING  THE 
HOT3  HIGHER-ORDER  TRIANGULAR  SHELL  ELEMENT  IN  THE 
ABAQUS  CODE.  LINEAR  STATIC  AND  DYNAMIC  CAPABILITIES 
ARE  SUPPORTED 

H0T3  SOFTWARE  FLOW  : 


UEL 

UHOTTR 

UHOTMT 

UMTCMX 

UMTDMX 

UMTTMX 

UHOTSF 

USFMEM 

UBXMEM 

USFBND 

UBXBND 

USFCPL 

UBXMEM 

UBXBND 

USFSHR 

UINTPT 

UBXSHR 

UFCSHR 

UHOTMM 

UHOTLD 

UHOTCD 

UHOTFX 

UHOTIO 

UHOTBX 

UBXMEM 

UBXBND 

UBXSHR 


ABAQUS  us«r  element 

coordinate  transformation 
hot3  material 
c-satriz 
d-aatrix 
t -matrix 
hot3  stiffness 

membrane  stiffness 
membrane  b-matrix 
bending  stiffness 
bending  b-matrix 
coupling  stiffness 
membrane  b-matrix 
bending  b-matrix 
shear  stiffness 
integration  points 
shear  b-matrix 
shear  factor 
hot3  mass  matrix 
hot3  load 
hot3  condensation 
additional  element  computation 
hot3  output 

hot3  b-matrix 

membrane  b-matrix 
bending  b-matrix 
shear  b-matrix 


NOTE:  ON  THE  *USER  ELEMENT  DATA  ENTRY  THE  FOLLOWING 
PARAMETERS  VALUES  ARE  MANDITORY: 
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a  n  a 


I 


C 

C  -*  SET  XODES-3  FOR  STATIC  ANALYSIS  OR  FOR  DYNAMIC 

C  ANALYSIS  IN  WHICH  THE  INERTIA  ASSOCIATED  WITH 

C  ThL  HIGHER-ORDER  XINEMATIC  TERMS  MAY  BE  NEGLECTED. 

C 

C  *  SET  N0DES>4  FOR  DYNAMIC  ANALYSIS  IN  WHICH  THE 

C  DEGREES  OF  FREEDOM  OF  THE  INTERNAL  NODE  ARE 

C  THE  TWO  HIGHER-ORDER  KINEMATIC  VARIABLES. 

C 

C  *  SET  COORD INATES«6  TO  ALLOW  FOR  POSSIBLE  DIRECTION 

C  COSINES  DESCRIBING  THE  UNIT  NORMAL  OF  THE  ELEMENT. 

C 

C  *  DEFAULT  MATERIAL  COORDINATE  SYSTEM  IS  THE  GLOBAL  SYSTEM. 

C 


HOTS  PROPERTY  LIST  FORMAT: 


I 


I 


» 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

** 

V# 

c 

c 

c 

c 


1)  NLAY,RHQ,Q1,Q2,Q3, NOTYPE, NOUT.NMAT 

2)  E1,E2,E3,G12,G23,G31 

3)  V12 , V23 , V31 , PLY , FIB 

(REPEAT  LINES  2  AND  3  FOR  EACH  LAYER) 

M)  PSI(i) ,PSI(2) ,PSI(3) ,PSU(1) ,PSU(2) ,PSU(3) 

M+l)  NSOL.NSYS ,MVC(1) ,MVC(2) ,MVC(3) 

WHERE 

NLAY  *  NUMBER  OF  LAYERS  IN  LAMINATE 
RHO  «  MATERIAL  DENSITY 

Qi  «  DISTRIBUTED  LOAD  INTENSITIES  AT  NODES 
NOTYPE  «  ELEMENT  OUTPUT  REQUEST; 

«  0  SUPPRESS  ALL  ELEMENT  OUTPUT 

*  1  OUTPUT  LAYER  STRESSES  AT  USER  SELECTED 

NUMBER  OF  THICKNESS  COORDINATES  AND 
ELEMENT  FORCES 

«  2  OUTPUT  ELEMENT  STIFFNESS  MATRIX  AND 
CONSISTENT  LOAD  VECTOR  ONLY 
«  3  OUTPUT  ELEMENT  LAYER  STRESSES,  STRAINS 
AND  INCLUDE  STIFFNESS  MATRIX  AND  LOAD 
VECTOR 

•  NOUT  «  NUMBER  OF  EQUALLY  SPACED  OUTPUT  POINTS 
THROUGH  THE  ELEMENT  THICKNESS 

NMAT  *  HIGHER-ORDER  THEORY  SELECTION  FUG; 

*  1  FOR  STRAIN-BASED 

»  2  FOR  STRESS-BASED  (VER  I) 

-  3  FOR  STRESS-BASED  (VER  II) 

Ei  •  YOUNGS  MODULI 

Gij  *  SHEAR  MODULI 

Vij  «  POISSON  RATIOS 


I 


I 


I 


I 


I 


I 


> 


■  ’i 
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o  o  ooo  o  o  o  o  o  o 


» 


c 

c 

C 

C 

C 

C 

0 

C 

C 

C 


PLY  «  LAYER  THICKNESS 

FIB  ■  LAYER  ORIENTATION 

PSI(I)  ■  LOCATION  FOR  STRESS  CALCULATION 
PSU(I)  -  LOCATION  FOR  DISPLACEMENT  CALCULATION 
NSOL  «  1  FOR  STATIC  ANALYSIS 
«  2  FOR  DYNAMIC  ANALYSIS 
-  3  FOR  DYNAMIC  ANALYSIS  NEGLECTING  INERTIA 
ASSOCIATED  WITH  THE  HIGHER-ORDER 
KINEMATIC  FUNCTIONS 

NSYS  *  COORDINATE  SYSTEM  FOR  ELEMENT  OUTPUT 

*  1  FOR  GLOBAL  COORDINATE  SYSTEM 

*  2  FOR  LOCAL  COORDINATE  SYSTEM 

MVCl(I)  *  MATERIAL  ORIENTATION  VECTOR  FOR  DIRECTION  1 
MVC2(I)  ■  MATERIAL  ORIENTATION  VECTOR  FOR  DIRECTION  2 


IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 
PARAMETER(NPRECD«2) 


» 


I 


I 


VARIABLE  AND  ARRAY  DECLARATIONS  FOR  UEL/ABAQUS  INTERFACE 

DIMENSION  RHS(MLVARX,«) ,  AMATRX(NDOFEL,NDOFEL) ,  PROPS O) , 

A  SVARS(l) ,  ENERGY (8) ,  COORDS (MCRD, NNQDE) ,  U(NDQFEL) , 

A  DU(MLVARX),  V(NDOFEL) ,  AG(NDOFEL),  TIME(2), 

A  PARAMSC*),  JDLTYP(MDLOAD,*) ,  ADLMAG(MDLOAD,*) , 

A  DDLMAGCMDLOAD,*),  PREDEF (2 , NPREDF , NNODE) ,  LFLAGS(S) 

VARIABLE  AND  ARRAY  DECLARATIONS  FOR  THE  H0T3  ELEMENT 
C 

DIMENSION  ELTL0D(17),  ELTSTF(17,17) ,  AMASS(17,17) ,  AMAT(4,4), 

A  BMAT(4,4) ,  DMAT(4,4),  GMAT(2,2),  PLY(125),  ZL(126), 

A  EK125),  E2C125),  E3(125),  V12(l25),  V23(125), 

A  V13(125) ,  Gi2(12S),G23(125),  G3l(125),  K(3),  Y(3), 

A  Z(3) ,  C(6.6,125) ,  l}(3),  FIB(125),  PSI(3),  PSU(3) . 

A  A(3),  B(3),  TRIO, 3),  TRANS(24,24)  ,  RETN(24), 

A  PETN(24.24),  STRN<6,6),  ETRN(6,6),  SMTN(6,6), 

A  EMTN(6,6),  AMVlO),  AMV2(3) 

C***M$4MM*tMM*M*tl*MMM*M** 

C 

IF  (  JTYPE  .EQ.  1  )  THEN 
C 

C  COMPUTE  THE  ELEMENT  STIFFNESS  AND  MASS  MATRIX  AND 

C  CONSISTENT  LOAD  VECTOR  FOR  THE  H0T3  TRIANGULAR 

C  FACET  SHELL  ELEMENT  BASED  ON  HIGHER-ORDER  TESSLER 

C  PUTS  THEORY 

C 

DO  I  «  1,  3 

X(I)  «  CUORDS(l.I) 


I 


I 


I 


» 


» 


» 


IK 


» 


I 


*  fl 


Y(I)  «  C00RDS(2,I)  . 

Z(Z)  •  C00RDS(3,I) 

END  DO 
C 

C  READ  ELEMENT  DATA  OFF  PROPERTY  LIST 

C 

THICK  »  0.0 

ilay  ■  urr(PROPSd)) 

RHO  •  PROPS (2) 

Q(l)  «  PROPS (3) 

Q(2)  »  PROPS (4) 

Q(3)  >  PROPS (S) 

HOTYPE  »  IHT(PR0PS(6» 

MOOT  »  I»:CPRQPS<7)) 

IMAT  «  IMT(PR0PS(8)) 

C 

DO  I  «  1,  MLAY 

E1(I)  «  PR0PS(16*(I-l)+9) 

E2(I)  «  PROPS(16*(I-i)+10) 

E3(I)  «  PR0PS(16*(I-1)+11) 

G12(I)  ■  PR0PS(16*(I-1)+12) 

G23(I)  «  PR0PS(16*(I-1)+13) 

G31(I)  ■  PR0PS(16*(I-1)-  14) 

V12(I)  »  PR0PS(16*(I-1)+17) 

V23(I)  «  PR0PS(16*(I-l)+18) 

V13(I)  *  PRQPS(16*(I-1)+19) 

PLY(I)  »  PROPS(16*(I-1)+20) 

FIB(I)  ■  PR0PS(16*(I-l)+21> 

THICK  »  THICK  ♦  PLY(I) 

END  DO 
C 

DO  I  *  1,  3 

PSI(I)  •  PR0PS(16*NLAY*  8*1) 

PSU(I)  »  °RQPS(X6*MLAY*11+I) 

END  DO 

NSOL  ■  DINT (PROPS ( 16*NL AY+17) ) 

ISYS  «  DINT (PROPS ( 16*NLAY+18) ) 

C 

DO  I  «  1,  3 

AMVl(I)  »  PROPS <16*MLAY+i6+I> 

AHV2(I)  «  PR0PS(16*MLAY+2S+I) 

END  DO 

.  IF  (  NSYS  .EQ.  0  )  NSYS  «  2 
C 

C  SET  DEFAULTS  ON  MATERIAL  ORIENTATION  VECTOR 

C  IF  NONE  HAVE  BEEN  SPECIFIED 

C 

IF  (  AMVl(l)  .EQ.  0.0  .AND.  AMV1(2)  .EQ.  0.0  .AND. 
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AMV1(3)..EQ.  0.0  )  THEN 
AMVl(l)  *  i.O 
END  IF 

IF  (  AMV2(1)  .EQ.  0.0  .AND.  AMV2(2)  .EQ.  0.0  .AND. 

AMV2(3)  .EQ.  0.0  )  THEN 
AMV2(2)  ■  1.0 
END  IF 

ZL(1)  -  -THICK  /  2.0 

DO  K  »  1,  NLAY 

ZLCK+1)  *  ZL(K)  +  PLY (K) 

END  DO 

COMPUTE  ELEMENT  COORDINATE  TRANSFORMATION  MATRICES 

CALL  UHOTTR  (  X,  Y,  Z,  AMV1,  AMV2,  A,  B,  TRI,  STM,  ETRN, 

SMTN,  EMTN,  TRANS  ) 

COMPUTE  ELEMENT  MATERIAL  PROPERTY  MATRICES 

CALL  UHOTMT  (  El,  E2,  E3,  G12,  G23,  G31,  V12,  V23,  V13, 
FIB,  ZL.  C,  SMTN,  AKAT,  BMAT,  DMAT,  GMAT,  NLAY, 
NMAT  ) 

IF  (  NSOL  .EQ.  1  .OR.  LFLAGS(3)  .EQ.  2  )  THEN 

COMPUTE  ELEMENT  STIFFNESS  MATRIX 

CALL  UHOTSF  (  ELTSTF ,  AMAT,  BMAT,  DMAT,  GMAT,  A,  B,  THICK, 
RELAX  ) 

ELSE  IF  (  LFLAGSC3)  .EQ.  4  )  THEN 

COMPUTE  ELEMENT  MASS  MATRIX 

CALL  UHOTMM  (  AMASS,  A,  B,  THICK,  NSOL,  RHO  ) 

END  IF 

TEST  IF  A  DISTRIBUTED  LOAD  HAS  BEEN  APPLIED 
CALL  UHOTLD  (  Q,  A,  B,  ELTLOD  ) 

IF  (NSOL  .EQ.  1  .OR.  (NSOL  .EQ.  3  .AND.  LFLAGS(3)  .EQ.  2))  THEN 


PERFORM  STATIC  CONDENSATION 


o  o 


CALL  UHOTCD  (  ELTSTF ,  ELTLOD  ) 

C 

END  IF 

RESTORE  STIFFNESS  AND  LOAD  VECTORS  TO  ACCOUNT  FOR 
C  DIFFERENT  DOF  ARRANGEMENT  IN  ABAQUS . 

C 

CALL  DSCPY  (  O.ODO,  RHS,  NDOFEL,  1  ) 

CALL  DSCPY  (  O.ODO,  AMATRX,  NDOFEL,  NDOFEL  ) 

C 

NBC  ■  0 
C 

DO  I  »  1,  5 
DO  J  «  1,  3 

NAC  «I  +  6*(J-1) 

NBC  ■  NBC  ♦  1 

RHS (NAC, 1)  *  ELTLOD (NBC) 

NBR  *  0 

DO  K  *  1,  5 
DO  L  «  1,  3 

NAR  »  K  +  6  *  (  L  -  1  ) 

NBR  «  NBR  ♦  1 
C 

C  TEST  FOR  STIFFNESS  OR  MASS  STORAGE  IN  AMATRX 

C 

IF  (  NSOL  .EQ.  1  )  AMATRX(NAR.NAC)  «  ELTSTF (NBR, NBC) 
IF  (  NSOL  .EQ.  2  OR.  NSOL  .EQ.  3  )  THEN 
IF  (  LFLAGS(3)  .Eq.  2  )  THEN 

AMATRX (NAR, NAC)  -  ELTSTF (NBR, NBC) 

ELSE  IF  (  LFLAGS(3)  .EQ.  4  )  THEN 
AMATRX (NAR, NAC)  *  AMASS (NBR, NBC) 

END  IF 
END  IF 
END  DO 
END  DO 
END  DO 
END  DO 
C 

C  FOR  DYNAMIC  ANALYSIS  APPEND  HI  AND  H2  STIFFNESS 

C  OR  MASS  MATRIX  PARTITIONS  TO  AMATRX 

C 

IF  (  NSOL  .EQ.  2  )  THEN 
NB  «  0 

DO  I  *  1,  5 
DO  J  «  1,  3 

NA  «  I  +  6  *  (  J  -  1  ) 

NB  »  NB  ♦  t 
DO  II  *  16,  17 


» 

Nil  «  II  ♦  3 
C 

C  TEST  FOE  STIFFNESS  OR  MASS  STORAGE  IN  AMATRX 

C 

IF  (LFLAGS(3)  .Eq.  2  )  THEN  • 

AMATRX(NII.NA)  =  ELTSTF(II ,NB) 

AMATRX (NA, Nil)  «  ELTSTF(NB,II) 

END  IF 

IF(  LFLAGS(3)  .Eq.  4  )  THEN 

AMATRX(NII.NA)  «  AMASS(II,NB)  ft 

AMATRX (N A, Nil)  *  AMASSC'B.II) 

END  IF 
END  DO 
END  DO 

END  DO  , 

C 

DO  I  8  16,  17 
NI  *  I  +  3 
DO  J  »  16,  17 
NJ  «  J  +  3 

IF  (  LFLAGSC3)  .Eq.  2  )  AMATRX (NI ,NJ)  *  ELTSTF(I.J)  * 

IF  (  LFLAGS(3)  .Eq.  4  )  AMATRX (NI.NJ)  *  AMASS (I, J) 

END  DO 
END  DO 
END  IF 

C  » 

C  ACCOUNT  FOR  DIFFERENT  SIGN  CONVENTION  IN  ABAOUS  FOR  THETA  X 

C  AND  ADD  ARTIFICIAL  STIFFNESS  OR  MASS  TO  BE  ASSOCIATED  WITH 

C  THETA  Z 

C 

CALL  UHOTFX  (  AMATRX,  NDOFEL  )  | 

C 

C  TRANSFORM  STIFFNESS  OR  MASS  MATRICES  AND  ELEMENT 

C  LOAD  VECTOR  TO  GLOBAL  COORDINATES 

C 

C  T  T  T 

C  CK]  »  [T][K*][T]  ;  CM]  =  [T]  [M'][T]  ;  {R>  *  [T]{R’> 

C 

C 

NDOF  «  NDOFEL 
DO  I  «  1,  NDOF 

RETN(I)  »  RHS(I , 1)  * 

END  DO 

CALL  DGMMUL  (  AMATRX, NDOF, TRANS, 24, PETN, 24, NDOF, NDOF, NDOF  ) 

CALL  DGMATB  (  TRANS, 24, PETN, 24, AMATRX, NDOF, NDOF, NDOF, NDOF  ) 

CALL  DGMMUL  (  TRANS, 24, RETN, 24, RHS, NDOF, NDOF, NDOF, 1  ) 

I 
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I 


C 


IF  (  NSOL  .Eq.  1  )  THEN 


PERFORM  REQUESTED  ELEMENT  DATA  RECOVERY 

TRANSFORM  GLOBAL  DISPLACEMENTS  INTO  ELEMENT  COORDINATES 

CALL  DGMMUL  (  TRANS,24,DU,MLVARX,PETN,24,NDQF,NDOF,l) 

CALL  DSTRN  (  PETN,  DU,  NDOF  ) 

REINSTATE  ORIGINAL  SIGN  OF  THETA  X  FOR  DATA  RECOVERY 

DO  I  =  1,  3 

NN  »  (I-l)*6  +  4 
DU (NN)  =  -DU(NN) 

END  DO 

CALL  UHOTIO  (  ELTSTF ,  ELTLOD,  C,  LFLAGS,  ZL,  DU,  ENERGY, 
A,  B,  PSI,  PSU,  AMAT,  BMAT,  DMAT,  GMAT, 
RELAX,  NLAY,  NOTYPE,  NOUT  ,  JELEM,  STRN, 
ETRN,  TRI,  NSYS ,  NMAT,  MLVARX  ) 


END  IF 


HOT3  ELEMENT  PROCESSING  COMPLETED 


END  IF 


IF  (  JTYPE  .EQ.  NUEL  )  THEN 


********************************************************* 

*  INSERT  MAIN  PROGRAMS  FOR  OTHER  USER  DEFINED  ELEMENTS  * 

*  SELECTED  BY  JTYPE  HERE  * 

********************************************************* 


END  IF 

RETURN 

END 

*********************************** 

* 

SUBROUTINE  UHOTTR  (  X,  Y,  Z,  AMV1,  AMV2,  A,  B,  TRI,  STRN,  ETRN,  * 
t  SMTN,  EMTN,  TRANS  )  ♦ 

* 

IMPLICIT  REAL*8  (a-H.O-Z)  * 


CALCULATE  TRANSFORMATION  MATRICES  FOR  CONVERTING  QUANTITIES  * 

BETWEEN  LOCAL  AND  GLOBAL  COORDINATE  SYSTEMS  * 
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» 


DIMENSION  X (3) ,  Y(3),  Z(3),  XP(3) ,  YP(3) ,  ZP(3),  £0(3,3),  * 

k  EP(3,3) ,  VC12C3),  VC13(3),  A(3) ,  B(3),  AKV1<3),  * 

k  AMV2(3),  TRIO, 3),  TMI(3,3),  EM(3,3),  STRN(6,6),  * 

k  ETRN(6,6) ,  SMTN(6,6),  EMTN(6,6),  TRANS(24,24)  * 

C  * 


c  ************************************ 

c 

C  UNIT  VECTORS  IN  GLOBAL  SYSTEM 

C 

E0(1,1)  «  1.0 
E0(l,2)  »  0.0 
E0(l,3)  *  0.0 
E0(2, 1)  »  0.0 
E0(2,2)  *  1.0 
E0(2,3)  »  0.0 
E0(3, 1)  =  0.0 
E0(3,2)  =  0.0 
E0(3,3)  =  1.0 
C 

C  LOCAL  ELEMENT  COORDINATE  VECTORS 

C 

AL  *  SQRTC  (X(2)-X(1))**2+(Y(2)~Y(1))**2+(Z(2)-Z(1))**2  ) 

VC12(1)  *  (X(2)-X(1))/AL 
VC12(2)  =  (Y(2)-Y(1))/AL 
VC12(3)  *  (Z(2)-Z(1))/AL 

AL  *  SQRTC  (X(3)-X(1))**2+(Y(3)-Y(1))’M'2+(Z(3)-Z(1))**2  ) 

VC13(1)  *  (X(3)-X(1))/AL 
VC13C2)  =  (Y(3)-Y(1))/AL 
VC13(3)  =  (Z(3)-Z(1))/AL 
C 

EP(l.l)  =  VC12(1) 

EP(1,2)  =  VC12(2) 

EP(1,3)  *  VC12C3) 

C 

AI  =  VC12(2)*VC13(3)-VC12(3)*VC13(2) 

AJ  =  VC12(3)*VC13(1)-VC12(1)*VC13(3) 

AK  =  VC12(1)*VC13(2)“VC12(2)*VC13(1) 

AL  =  SQRTC  AI**2  +  AJ**2  +  AK**2  ) 

EPC3.1)  *  AI/AL 
EP(3,2)  =  AJ/AL 
EP(3,3)  =  AK/AL 
C 

AI  =  EP(3,2)*EP(1 ,3)-EP(3,3)*EP(i ,2) 

AJ  =•  EP(3,3)*EP(1 ,1)-EP(3,1)*EP(1.3) 

AK  »  EP(3, 1)*EP(1 ,2)-EP(3,2)*EP(l , 1) 

AL  *  SQRTC  AI**2  +  AJ**2  *  AK**2  ) 

EPC2.1)  »  AI/AL 
EPC2.2)  *  AJ/AL 


> 


> 


> 


I 


I 


I 


I 


I 
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» 


I 


EP(2,3)  »  AK/AL 
C 

C  CONSTRUCT  COORDINATE  TRANSFORMATION  MATRIX 
C 

C  T 

C  {X’>  -  CTRIHX};  {X}  *  [TRIHX*} 

C 

C 

DO  I  »  1,  3 
DO  J  *  1,  3 

TRI(I.J)  =  0.0 
DO  K  *  1,  3 

TRI(I.J)  =  TRI(I.J)  +  EP(I ,K)*EO(J,K) 

END  DO 
END  DO 
END  DO 
C 

CALL  DSCPY  (  O.ODO,  TRANS,  24,  24  ) 

C 

DO  I  s  1,  6 
NF  *  3*(I-1) 

DO  J  *  1,  3 
DO  K  *  1,  3 

TRANS (NF+J.NF+K)  =  TRI(J,K) 

END  DO 
END  DO 

TRANS (18+1, 18+1)  «  1.0 
END  DO 
C 

DO  I  *  1,  3 

XP(I)  =»  TRI(1,1)*X(I)+TRI(1,2)*Y(I)+TRI(1,3)*Z(I) 
YP(I)  *  TRI(2,1)*X(I)+TRI(2,2)*Y(I)+TRI(2,3)*Z(I) 
ZP(I)  *  TRI(3, 1)*X(I)+TRI(3,2)*Y(I)+TRI(3,3)*Z(I) 
END  DO 
C 

A ( 1 )  =  XP(3)  -  XP(2) 

A(2)  *  XP(1)  -  XP(3) 

A(3)  *  XP(2)  -  XP(1) 

C 

B(  1)  »  YP(2)  -  YP(3) 

E(2)  »  YP(3)  -  YP Cl) 

B(3)  «  YP(l)  -  YP(2) 

C 

C  CONSTRUCT  STRESS  AND  STRAIN  TRANSFORMATION  MATRICES 

C  TO  CONVERT  BETWEEN  LOCAL  ELEMENT  COORDINATE  SYSTEM 

C  AND  GLOBAL  SYSTEM 

C 

C  [Ts]  =  STRESS  TRANSFORMATION 


» 


> 


» 


» 


» 


> 


> 


I 


I 
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[Te]  =  STRAIN  TRANSFORMATION 


C 
C 

C  {E*>  «  [Te]{E>;  {S’}  =  [Ts]{S> 

c 

C  T  T 

C  {E>  *  CTs]{E’>;  {S}  =  [Te]{S’> 

C 

C  (  CONVENTION:  [Ex,Ey,Ez,Gyz,Gxz,Gxy]  ) 

C 

CALL  TENSRT  (  TRI,  STRN,  ETRN  ) 

C 

C  CONSTRUCT  TRANSFORMATION  MATRIX  TO  ORIENT  THE  MATERIAL 
C  PROPERTIES  DEFINED  IN  THE  GLOBAL  SYSTEM  TO  THE  LOCAL 
C  ELEMENT  COORDINATE  SYSTEM 

C 

C  [Ts]  *  STRESS  TRANSFORMATION  FOR  MATERIAL  PROPERTIES 

C  [Te]  *  STRAIN  TRANSFORMATION  FOR  MATERIAL  PROPERTIES 

C 

C  T  T 

C  [C»]  *  [Ts]  [C]  [Ts]  [C]  =  [Te]  [C’]  [Te] 

C 

C  CONVENTION:  [Ex , Ey , Ez , Gyz , Gxz , Gxy] 

C 

DO  I  »  1,  3 

EM(ltI)  a  AMVl(I)/SQRT(AMVl(i)**2+AMVl(2)**2+AMVl(3)!**2) 
EM(2,I)  =  AMV2(I)/SqRT(AMV2(l)**2+AMV2(2)**2+AMV2(3)**2) 
END  DO 

AI  *  EM(1,2)*EM(2,3)-EM(1 ,3)*EM(2,2) 

AJ  a  EM(1 ,3)*EM(2,1)-EM(1 , 1)*EM(2,3) 

AK  »  EM(1,1)*EM(2,2)-EM(1 ,2)*EM(2, 1) 

AL  *  SQRTC  AI**2  +  AJ**2  +  AK**2  ) 

EM(3,1)  *  AI/AL 
EM(3,2)  *  AJ/AL 
EM (3, 3)  =  AK/AL 
C 

DO  I  =  i,  3 
DO  J  *  i,  3 

TMI(I,J)  =  0.0 

DO  K  a  1,  3 

TMI(I,J)  a  TMI(I.J)  +  EP(I ,K)*EM(J,K) 

END  DO 
END  DO 
END  DO 
C 

CALL  TENSRT  (  TNI,  SMTN,  EMTN  ) 

C 

RETURN 

END 
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I 


c 

C*****4****««**««************t******* 


c  * 

SUBROUTINE  TENSRT  (  T,  TS,  TE  )  * 

C  * 

IMPLICIT  R5AL*8  (A-H.O-Z)  * 

C  * 

C  COMPUTE  STRESS  AND  STRAIN  TRANSFORMATION  MATRICES  * 

C  * 

DIMENSION  ?(3,3) ,  TS(6,6),  TE(6,6)  * 

C  * 


C****«********«***********«********** 

c 

C  CONSTRUCT  TRANSFORMATION  MATRICES  TO  CONVERT 

C  BETWEEN  REFERENCE  COORDINATE  SYSTEMS 

C 

C  [Ts]  *  STRESS  TRANSFORMATION 

C  [Te]  *  STRAIN  TRANSFORMATION 

C 

C  {E’>  *  CTeHE};  {S’}  =  [Ts]{S> 
c 

C  T  T 

C  {E}  -  [Ts]{E’};  {5}  =  [Te]{S’> 

C 

C  CONVENTION:  [Ex,Ey,E2,Gyz,Gx2,Gxy]  ) 

C 

C  ,  JRESS  TRANSFORMATION  MATRIX,  [Ts] : 

C 

TSCl,!)  =  T(l,l)**2 
TS(1 ,2)  =  TCl,2)**2 
TS(1,3)  *  T(l,3)**2 
TSCl, 4)  *  2*T(l,2)*T(i,3) 

TSC1.5)  «  2»T(1,3)*T(1,1) 

TSCl, 6)  =  2*TCl,i)*TCl,2) 

TSC2.1)  *  TC2, 1)**2 
TSC2,2)  ^  TC2,2)**2 
TSC2.3)  *  TC2,3)**2 
TSC2.4)  *  2*Tf2,2)*TC2,3) 

TSC2.5)  »  2*TC2,3)*TC2,i) 

TSC2.8)  ■  2*TC2,1)*TC2,2) 

TSC3.1)  »  TC3,1)**2 
TSC3.2)  *  TC3,2)**2 
TS(3,3)  »  TC3,3}**2 
TSC3.4)  «  2*TC3,2)*TC3,3) 

TSC3.5)  x  2*TC3,3)*TC3.1) 

TSC3.6)  *=  2*TC3S1)*'TC3}2) 

TSC4.1)  =  TC2,J.)*TC3,1) 

TSC4,2)  =  TC2,2)*TC3.2) 


> 


» 


* 


► 


I 


I 


I 
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TS(4,3)  =  T(2,3)*T(3,3) 

TS(4,4)  «  T(2,2)*T(3,3)  +  T(3,2)*T(2,3) 

TS(4,S)  *  T(2,3)*T(3, 1)  +  T(3,3)*T(2,1) 

TS(4,6)  *  T(2,1)*T(3,2)  +  T(3,1)*T(2,2) 

TS(5,1)  *  T(3,1)*T(1,1) 

TSC5.2)  ■  T(3,2)*T(i ,2) 

TS(5,3)  *  T(3,3)*T(1 ,3) 

TSC5.4)  *  T(3,2)*T(1 ,3)  +  T(1,2)*T(3,3) 

TS(5,6)  *  T(3,3)*T(1,1)  +  T(1,3)*T(3,1) 

TS(S,6)  »  7(3,1)*T(1 ,2)  +  T(1 ,1)*T(3,2) 

TS(6, 1)  »  T(1,1)*T(2,1) 

TS(6,2)  *  7(1,2)*T(2,2) 

7S(6,3)  =  T(1,3)*T(2,3) 

TS(6t4)  *  T(i,2)*T(2,3)  +  T(2,2)*T(1 ,3) 

TS(6,5)  *  7(1,3)*T(2,1)  +  T(2,3)*T(1 ,1) 

73(6,6)  »  T(1,1)*T(2,2)  +  T(2,1)*T(1,2) 

C 

C  STRAIN  TRANSFORMATION  MATRIX,  [Te] : 

r< 

O 

DO  I  =  1,  3 
DO  J  *  1,  3 

TE(I, J)  =  7S(I , J) 

TE(I,J+3)  =  TS(I , J+3)/2.0 

7E(I+3,  J)  =•  TS(I+3, J)/0.5 

TE(I+3, J+3)  »  7S(I+3,J+3) 

END  DO 
END  DO 
C 

RETURN 

END 

C 

C*******  ***************************** 


c  * 

SUBROUTINE  USFMEM  (  SMX,  A,  B,  THICK,  DMX  )  * 

C  * 

IMPLICIT  REAL+8  (A-H.O-Z)  '  * 

C  * 

C  CALCULATE  MEMBRAN2  EFFECTS  OF  THE  H0T3  TRIANGULAR  PLATE  * 

C  ELEMENT  INCORPORATING  HIGHER  ORDER  KINEMATIC  EXPANSIONS  * 

C  * 

DIMENSION  DMXC4.4),  BMX(4,17),  SMX(17,17),  BTD(17,4),  A(3),  B(3)  * 

C  * 


C************************************ 

c 

AREA  =  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 
C 

CALL  DSCPY  (  O.DO,  BMX,  4,  17) 

C 


» 


» 


i 


» 


» 


» 


I 


i 


I 


» 


•  ’s 


> 


I 


CALL  UBXMEM  (  BMX,  4,  A,  B,  THICK  ) 

CALL  DMATB  (  BMX,  DMX,  BTD,  17,  4,  4  ) 

CALL  DMMUL  (  BTD,  BMX,  SMX,  17,  4,  17  ) 

CALL  DSMUL  (  AREA,  SMX,  SMX,  17,  17) 

C 

RETURN 

END 

C 

C************************************ 


c  * 

SUBROUTINE  USFBND  (  SMX,  A,  B,  THICK,  DMX  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.0-2)  * 

C  * 

C  CALCULATE  BENDING  STIFFNESS  MATRIX  OF  THE  HOT3  TRIANGULAR  PLATE  * 

C  ELEMENT  INCORPORATING  HIGHER  ORDER  KINEMATIC  EXPANSIONS  * 

C  * 

DIMENSION  DMX (4, 4) ,  BMX(4,17),  SMX(17,17),  BTD(17,4),  A(3),  B(3)  * 

C  * 


C************************************ 

c 

AREA  *  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 
C 

CALL  DSCPY  (  O.DO,  BMX,  4,  17) 

C 

CALL  UBXBND  (  BMX,  4,  A,  B,  THICK  ) 

CALL  DMATB  (  BMX.  DMX,  BTD,  17,  4,  4  ) 

CALL  DMMUL  (  BTD,  BMX,  SMX,  17,  4,  17  ) 

CALL  DSMUL  (  AREA,  SMX,  SMX,  17,  17) 

C 

RETURN 

END 

C 

C****«**************#*****%********** 


c  * 

SUBROUTINE  USFCPL  (  SMX,  A,  B,  THICK,  DMX  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  COUPLING  EFFECTS  OF  THE  H0T3  TRIANGULAR  PLATE  * 

C  ELEMENT  INCORPORATING  HIGHER  ORDER  KINEMATIC  EXPANSIONS  * 

C  * 

DIMENSION  DMX(4,4),  BMX(4,17),  SMX(17,17),  BTD(17,4),  BTDB(17, 17) ,* 

t  BTDTB(17,17) ,  A(3),  B(3)  * 

C  * 

c************************************ 

c 

AREA  «  (  AC3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 


» 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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» 


c 


c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 


c 


CALL 

DSCPY 

( 

O.ODO, 

BMX, 

4, 

17) 

CALL 

UBXMEM 

( 

BMX, 

4, 

A. 

B, 

THICK  ) 

CALL 

DMATB 

( 

•  BMX, 

DMX, 

BTD, 

17, 

4,  4  ) 

CALL 

DSCPY 

( 

O.ODO, 

BMX, 

4, 

17) 

CALL 

UBXBND 

( 

BMX, 

4, 

^  » 

B, 

THICK  ) 

CALL 

DMMUL 

( 

BTD, 

BMX, 

BTDB, 

17, 

4,  17  ) 

CALL 

DMTRN 

( 

BTDB, 

BTDTB, 

17, 

17) 

CALL 

DMADD 

( 

BTDB, 

BTDTB  ,• 

SMX, 

17, 

17  ) 

CALL 

DSMUL 

( 

AREA, 

SMX, 

SMX, 

17, 

17  ) 

RETURN 

END 


****************t****************** 

* 

SUBROUTINE  USFSHR  (  SMX,  A,  B,  DHX  )  * 

* 

PARAMETER  (  KORD  =  7  )  * 

* 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

* 

CALCULATE  SHEAR  STIFFNESS  OF  THE  H0T3  TRIANGULAR  PLATE  * 

ELEMENT  INCORPORATING  HIGHER  ORDER  KINEMATIC  EXPANSIONS  * 

* 

DIMENSION  DMXC2.2),  SMX(2,17),  SMX(17,17),  BTD(17,2),  BTDB(17,17) ,* 
*  A (3) ,  B(3)  * 

* 


*********************************** 


AREA  *  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 

CALL  DSCPY  (  O.DO,  SMX,  17,  17  ) 

CALL  DSCPY  (  O.DO,  BMX,  2,  17  ) 

DO  I NT3  1,  KORD 

CALL  UINTPT  (  XI,  X2,  X3,  WEIGHT,  KORD,  INT  ) 

CALL  UBXSHR  (  BMX,  2,  A,  B,  XI,  X2,  X3  ) 

CALL  DMATB  (  BMX,  DMX,  BTD,  17,  2.  2  ) 

CALL  DMMUL  (  BTD,  BMX,  BTDB,  17,  2,  17) 

CALL  DMASB  (  SMX,  AREA*WEIGHT,  BTDB,  SMX,  17,  17  ) 
END  DO 

RETURN 

END 


C 

C************************************ 

c  * 


I 


» 


I 


I 


» 


I 


I 


I 


I 


» 
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t 


I 


SUBROUTINE  UBXMEM  (  BMX,  LR,  A,  3,  THICK  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  MEMBRANE  B-MATRIX  * 

C  * 

DIMENSION  BMX(LR,17) ,  A(3),  B(3)  * 

C  ‘  * 


C************************************ 

c 

AREA  *  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 
C 

BMX(  1,  1)  ■  5(1)  /  (  2.  *  AREA  ) 

BMX(  1,  2)  =  B(2)  /  (  2.  *  AREA  ) 

BMX(  1,  3)  «  B(3)  /  (  2.  *  AREA  ) 

C 

BMX(  2,  4)  *  A ( 1 )  /  (  2.  *  AREA  ) 

BMX(  2,  S)  -  A(2)  /  (  2.  *  AREA  ) 

BMX(  2,  6)  *  A(3)  /  (  2.  *  AREA  ) 

C 

BMX(  3,16)  *  2.0  /  THICK 
C 

BMX(  4,  1)  =  A(l)  /  (  2.  *  AREA  ) 

BMX(  4,  2)  *  A(2)  /  (  2.  *  AREA  ) 

BMX(  4,  3)  *  A(3)  /  (  2.  *  AREA  ) 

BMX(  4,  4)  =  BCD  /  (  2.  *  AREA  ) 

BMX(  4,  5)  *  B(2)  /  (  2.  *  AREA  ) 

BMX(  4,  6)  *  B(3)  /  (  2.  *  AREA  ) 

C 

RETURN 

END 

C 


C************************************ 


BMX(  1,15)  »  B (?)  /  (  2.  *  AREA  > 

C 

BMX(  2,10)  »  A(l)  1(2.*  kKlk  ) 

BMX(  2,11)  «  A(2)  /(  2.  *  AREA  ) 

BMX(  2,12)  *  A(3)  1(2.*  V&k  ) 

C 

BMX(  3,17)  *  2.0  /  THICK 
C 

BMX(  4,10)  -  B(l)  /  (  2.  *  AREA  ) 

BMX(  4,11)  *  B(2)  /  (  2.  *  AREA  ) 

BhX(  4,12)  *  B(3)  /(  2.  *  AREA  ) 

BMX(  4,13)  *  ACl)  1(2.*  AREA  ) 

BKX(  4,14)  *  A(2)  1(2.*  AREA  ) 

BMX(  4,15)  *  A(3)  1(2.*  AREA  ) 

C 

RETURN 

END 

C 

£************************************ 


c  * 

SUBROUTINE  UBXSHR  (  BHX,  LR,  A,  B,  XI,  X2,  X3  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  SHEAR  B-HATRIX  * 

C  * 

DIMENSION  BMX(LR,17) ,  A(3) ,  B(3)  * 

C  * 


C*****************«****************** 

c 

AREA  *  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 
C 

BMXCl,  7)  a  A ( 1 )  /  (  2.  *  AREA  ) 

BMXCl.  8)  *  A(2)  /(  2.  *  AREA  } 

BMX(1,  9)  *  A(3)  /  (  2.  *  AREA  ) 

BMXCl, 10)  «  C  B(3)  *  C  X2  *  ACl)  +  XI  *  A(2)  ) 

I:  -  BC2)  *  C  X3  *  ACl)  +  XI  *  A C3)  ))/C4.*AREA)  +  XI 

BMXCl. 11)  ■  C  BCl)  *  C  X3  *  AC2)  ♦  X2  *  AC3)  ) 

*  -  B(3)  *  C  X2  *  ACl)  ♦  XI  *  AC2)  ))/C4.*AREA)  +  X2 

BMXCl, 12)  =  (-  BCl)  *  C  X3  *  AC2)  +  X2  *  AC3)  ) 

*  +  BC2)  *  C  X3  *  ACl)  ♦  XI  *  AC3)  ))/C4.*AREA)  +  X3 

BMXCl, 13)  «  C  AC2)  *  C  X3  *  ACl)  +  XI  *  A(3)  ) 

ft  -•  A(3)  *  C  X2  *  ACl)  +  XI  *  AC2)  ))/C4.*AREA) 

BMXCl, 14)  «  C-  A(l)  *  C  X3  *  AC2)  +  X2  *  AC3)  ) 

ft  +  A (3)  *  C  X2  *  ACl)  +  XI  *  AC2)  ))/C4.*AREA) 

BMXCl, 15)  *  C  ACl)  *  C  X3  *  AC2)  +  X2  *  A(3)  ) 

ft  -  AC2)  *  C  X3  *  ACl)  +  XI  *  AC3)  ))/C4.*AREA) 

C 


32 


ft 


bmx (2 ,  7)  »  b(i)  /  (  2.  *  Area  ) 

BHX(2,  8)  ■  B(2)  /  (  2,  *  AREA  ) 

BMX(2 ,  9)  *  B(3)  /  (  2.  *  AREA  ) 

BMX(2, 10)  *  (  B(3)  *  (  X2  *  B(l)  +  XI  *  B(2)  ) 

ft  -  B(2)  *  (  X3  *  BCl)  +  XI  *  B(3)  ))/(4.*AREA) 

BMX(2,11)  =  (  BCD  *  (  X'3  *  B(2)  +  X2  *  B(3)  ) 
t  -  B(3)  *  (  X2  *  BCl)  ♦  XI  *  B(2)  ))/(4.*AREA) 

BMX (2, 12)  -  (-  BCl)  *  (  X3  *  B(2)  +  X2  *  B(3)  ) 

k  *  B(2)  *  (  X3  *  BCl)  +  XI  *  B(3)  ))/(4.*AREA) 

BMX (2, 13)  =  (  A(2)  *  (  X3  *  BCl)  +  XI  *  B(3)  ) 

k  -  A(3)  *  (  X2  *  B(l)  +  XI  *  B(2)  ))/(4.*AREA)  +  XI 

BMX (2, 14)  *  (-  A(l)  *  (  X3  *  B(2)  +  X2  *  B(3)  ) 

k  +  A(3)  *  (  X2  *  BCl)  +  XI  *  BC2)  ))/(4.*AREA)  +  X2 

BMXC2.15)  *  (  A C 1 )  *  (  X3  *  B(2)  +  X2  *  B(3)  ) 

ft  -  A (2) '*  (  X3  *  B(l)  +  Xi  *  B(3)  ))/(4.*AREA)  +  X3 

C 

RETURN 

END 

C 

C************************************ 


c 

SUBROUTINE  UFCSHR  (  STFSHR,  STFBND ,  RELAX  )  * 

0  * 

C  FCSHR  COMPUTES  THE  PENALTY  FACTOR  RELAX  FOR  THE  SHEAR  STIFFNESS  * 

C  COMPONENTS  TO  ENFORCE  KIRCHHOFF  BEHAVIOR  IN  THE  THIN  LIMIT  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

DIMENSION  STFBND (17 ,17),  STFSHR(17,17)  * 

C  * 


£********************************«*** 

c 

SBEND  *  O.ODO 
SHEAR  *  O.ODO 
C 

DO  I  «  10,  15 

SBEND  *  SBEND  +  STFBND (I, I) 

SHEAR  =  SHEAR  +  STFSHR(I.I) 

END  DO 
C 

IF  (  SBEND  .EQ.  0.0  )  THEN 
RELAX  *  0.0 
ELSE 

SCALE  *  2.0D0 
RATIG  *  SBEND  /  SHEAR 

RELAX  *  SCALE  *  RATIO  /  (  l.ODO  ♦  SCALE  *  RATIO  ) 

END  IF 
C 
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I 


I 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


i 


RETURN 

END 

C 

C*************************  *********** 


c  * 

SUBROUTINE  UHCTBX  (  BMX,  A,  B,  XI,  X2,  X3,  THICK  ;  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  THE  STRAIN-DISPLACEMENT  MATRIX  * 

C  FOR  THE  H0T3  ELEMENT  * 

C  * 

DIMENSION  BMX(10, 17) ,  A(3),  B(3)  * 

C  * 


C  ************************************ 

c 

CALL  DSCPY  (  O.OD+O,  BMX,  10,  17  ) 

C 

CALL  UBXMEM  (  BMX(  1,1),  10,  A,  B,  THICK  ) 

CALL  UBXBND  (  BMX(  S.l),  10,  A,  B,  THICK  ) 

CALL  UBXSHR  (  BMX(  9,1),  10,  A,  B,  XI,  X2,  X3  ) 

C 

RETURN 

END 

C 

(;************************************ 


C  * 

SUBROUTINE  UHOTSF  (  ELTSTF ,  AMAT,  BMAT,  DMAT,  GMAT,  A,  B,  THICK,  * 

&  RELAX  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  THE  ELASTIC  STIFFNESS  MATRIX  FOR  THE  H0T3  ELEMENT  * 

C  * 

DIMENSION  ELTSTF (17, 17),  STFMEM(17,17) ,  STFBND(17,17) ,  * 

ft  STFCPL(17,17),  STFSHR(17,17) ,  AMAT(4,4),  BMAT(4,4),  * 

ft  DMAT(4,4) ,  GMAT(2,2) ,  A(3),  B(3)  * 

C  * 


C  *****  * t******************************. 

c 

CALL  DSCPY  (  0!0D0,  ELTSTF,  17,  17  ) 

C 

CALL  USFMEM  (  STFMEM ,  A.-B,  THICK,  AMAT  ) 

CALL  DMADD  (  STFMEM,  ELTSTF,  ELTSTF,  17,  17  ) 

CALL  USFBND  (  STFBND ,  A,  B,  THICK,  DMAT  ) 

CALL  DMADD  (  STFBND,  ELTSTF,  ELTSTF,  17,  17  ) 

CALL  USFCPL  (  STFCPL,  A,  B,  THICK,  BMAT  ) 

CALL  DMADD  (  STFCPL,  ELTSTF,  ELTSTF,  17,  17  ) 


ft 


ft 


ft 


ft 


ft 


ft 


I 


I 


ft 


ft 


ft 
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CALL  l'SFSHR  (  STFSHR,  A,  B,  GMAT  ) 

C 

CALL  UFCSHR  (  STFSHR,  STFBND ,  RELAX  ) 

CALL  DMASB  (  ELTSTF ,  RELAX,  STFSHR,  ELTSTF ,  17,  17  ) 

C 

RETURN 

END 

C 

C************************************ 


c  * 

SUBROUTINE  UHOTHM  (  AMASS,  A,  B,  THK,  NSOL,  RHO  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  CALCULATE  H0T3  ELEMENT  CONSISTENT  MASS  MATRIX  * 

C  * 

DIMENSION  AMASS (17, 17) ,  SHAPE(3,17),  A(3),  B(3),  * 

k  TEMP (17 , 17) ,  PSI(3) ,  XML(3),  XMM(3),  XMN(3)  * 

C  * 


c************************************ 

c 

CALL  DSCPY  (  O.ODO,  AMASS,  17,  17  ) 

CALL  DSCPY  (  O.ODO,  SHAPE,  3,  17  ) 

C 

H  «  THK/2.0 
C 

AREA  *  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 
C 

C  NSOL  FLAG  USED  TO  INCLUDE/EXCLUDE  MASS  ASSOCIATED 
C  WITH  HIGHER-ORDER  FUNCTIONS  W1  k  W2; 

C 

BETA  »  1.0 

IF  (  NSOL  .EQ.  3  )  BETA  =  0.0 
C 

C  SET  ORDER  OF  INTEGRATION  ACROSS  THICKNESS 
C 

NORD  =  4 
C 

C  SET  ORDER  OF  INTEGRATION  OVER  AREA 
C 

KORD  *  7 
C 

DO  100  INT  «  1,  KORD 
C 

C  INVOKE  GUASS  INTEGRATION  FOR  A  TRIANGLE 

C 

CALL  UINTPT  (  XI,  X2,  X3,  WGHT1 ,  KORD,  INT  ) 

C 
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PSI(l)  *  XI 
PSI<2)  *  X2 
PSI(3)  *  X3 


» 


C 

c 

c 


c 


c 


c 

c 

c 


c 

c 

c 


c 


c 


ANISOPARAMETRIC  SHAPE  FUNCTIONS 


XMN(l)  =  4.0*X1*X2 
XMN(2) ’*  4.0*X2*X3 
XMN(3)  =  4.0*X3*X1 

XML(l)  *  B(3)/8.0*XMN(1)-B(2)/8.0*XMN(3) 
XML (2)  *  B(1)/8.0*XMN(2)-B(3)/8.0*XMN(1) 
XML(3)  =  -B(1)/8.0*XMN(2)+B(2)/8.0*XMN(3) 

XMM(l)  *  A(2)/8.0*XMN(3)-A(3)/8.0*XMN(1) 
XMMC2)  =  -A(1)/8.0*XMN(2)+A(3)/8.0*XMN(1) 
XMM(3)  =  A(1)/8.0*XMN(2)-A(2)/8.0*XMN(3) 


DO  110  IZ  *  1,  NORD 

CALL  UIGSS  (  NORD,  IZ,  CEE,  WGHT2  ) 

DO  I  *  1,  3 

SHAPE(l.I)  =  P3I(I) 

SHAPE(1 ,1+12)  =  H*CEE*PSI(I) 

SHAPE (2, 1+3)  =  PSI(I) 

SHAPE(2,I+9)  =  H*CEE*PSI(I) 

SHAPE(3,I+6)  =  PSI(I) 

SHAPE(3,I+9)  =  XML(I) 

SHAPE(3,I+12)  =  XMM(I) 

END  DO 

SHAPE (3, 16)  ■  BETA* CEE 

SHAPE(3 , 17)  =  BETA*(CEE**2  -  0.2) 

NUMERICALLY  INTEGRATE  MASS  MATRIX 

CALL  DMATB  (  SHAPE,  SHAPE,  TEMP,  17,  3,  17  ) 
FAC  *  RH0*H*AREA*WGHT1*WGHT2 

DO  I  *  1,  17 
DO  J  «  1,  17 

AMASS(I.J)  =  AMASS(I.J)  +  FAC*TEMP(I , J) 
END  DO 
END  DO 


110  CONTINUE 
C 

100  CONTINUE 


I 


I 


» 


» 


I 


I 


I 


» 


» 


» 


'  'i 


i 


36 


c 

RETURN 

END 

C 

C**********  ************************** 


c  * 

SUBROUTINE  UHOTFX  (  AMATRX,  NDOF  )  * 

C  * 

IMPLICIT  REAL*8  (A-H,0-Z)  * 

C  * 

C  CHANGE  SIGN  OF  THETA  X  TO  ACCOUNT  FOR  DIFFERENT  SIGN  * 

C  CONVENTION  IN  ABAQUS  AND  ADD  ARTIFICIAL  STIFFNESS  OR  * 

C  MASS  TO  BE  ASSOCIATED  WITH  THETA  Z  * 

C  * 

DIMENSION  AMATRX (NDOF, NDOF)  * 

C  * 


C***  ********************************* 

c 

DO  I  «  1,  3 

NN  *  (I-l)*6  *  4 
DO  J  *  1,  NDOF 

AMATRX (NN,J)  =  -AMATRX (NN ,J) 

AMATRX(J.NN)  *  -AMATRX(J,NN) 

END  DO 
END  DO 
C 

C  SET  SCALE  FACTOR  FOR  MINIMUM  DIAGONAL  TERM 
C 

SCALE  *  1.0E-5 
C 

SMIN  *  AMATRX (1,1) 

DO  I  *  1,  3 
DO  J  *  1,  5 

N  «  6*(I-1)  +  J 

SMIN  *  HIN(  AMATRX(N.N),  SMIN  ) 

END  DO 
END  DO 
DO  I  *  1,  3 
N  »  6*1 

AMATRX (N,N)  «  SCALE  *  SMIN 
END  DO 
C 

RETURN 

END 

C 

C***************************  ********* 

c  * 

•  SUBROUTINE  UHQTLD  (  Q,  A,  B,  ELTLOD  )  * 
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c  * 

C  HTLOD  COMPUTES  THE  CONSISTENT  LOAD  VECTOR  FOR  '  * 

C  THE  H0T3  ELEMENT  BASED  ON  HIGHER  ORDER  TESSLER  * 

C  PLATE  THEORY  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C  H0T3  IS  FORMULATED  TO  ACCEPT  LINEARLY  VARYING  LOAD  * 

C  DISTRIBUTIONS  TO  BE  APPLIED  ON  BOTH  THE  UPPER  AND  * 

C  LOWER  SURFACES.  CURRENT  RESTRICTION  IN  THE  INPUT  '  * 

C  MODULE  LIMITS  DISTRIBUTED  LOAD  INPUT  TO  ONLY  ONE  * 

C  SURFACE  WHICH  IS  ASSUMED  TO  BE  THE  TOP  SURFACE  * 

C  * 

DIMENSION  ELTLOD(17),  A(3),  B(3),  Q(3)  * 

C  * 


C************************************ 

c 

CALL  DSCPY  (  O.OD+O,  ELTLOD,  17,  1) 

C 

IF  ((  Q(l) .NE.0.0  ) .OR. (  Q(2) .NE.0.0  ).QR.(  Q(3).NE.0.0  ))  THEN 
C 

AREA  =  (  A(3)  *  B(2)  -  A(2)  *  B(3)  )  /  2.0 

C 


ELTLOD (  7) 

s 

AREA 

*  (  2.*Q(1) 

+ 

q(2) 

♦ 

Q(3) 

) 

/ 

12. ODO 

ELTLOD (  3) 

a 

AREA 

*  (  Q ( 1) 

♦ 

2.*q(2) 

♦ 

q(3) 

) 

/ 

12. ODO 

ELTLOD (  9) 

a 

AREA 

*  (  Q(l) 

♦ 

q(2) 

+ 

2.*q(3) 

) 

/ 

12. ODO 

ELTLOD (10) 

* 

AREA 

*  (  (  2.*Q(1) 

♦ 

2.*q(2) 

♦ 

q(3) 

) 

* 

B(3) 

k 

-(  2.*Q(1) 

♦ 

q(2) 

♦ 

2.*q(3) 

) 

* 

B(2)  )/ 

k 

120. ODO 

ELTLOD (11) 

a 

AREA 

*  (  (  q(D 

+ 

2.*q(2) 

+ 

2.*q(3) 

) 

* 

B(l) 

k 

-(  2.*Q(1) 

+ 

2.*q(2) 

♦ 

q(3) 

) 

* 

B(3)  )/ 

k 

120. ODO 

ELTLOD (12) 

a 

AREA 

*  (  (  2.*Q(1) 

♦ 

q(2) 

+ 

2.*q(3) 

) 

* 

B(2) 

k 

-(  Q(l) 

♦ 

2.*q(2) 

+ 

2.*q(3) 

) 

* 

B(l)  )/ 

k 

120. ODO 

ELTLOD (13) 

s 

AREA 

*  (  (  2.*Q(1) 

♦ 

q(2) 

+ 

2.*Q(3) 

) 

* 

A(2) 

k 

-(  2.*Q(1) 

♦ 

2.*q(2) 

+ 

q(3) 

) 

* 

A(3)  )/ 

k 

120. ODO 

ELTLOD (14) 

s 

AREA 

*  (  (  2.*Q(1) 

♦ 

2.*q(2) 

♦ 

q(3) 

) 

* 

A(3) 

k 

-(  Q(l) 

+ 

2.*q(2) 

+ 

2.*q(3) 

) 

* 

A( 1)  )/ 

k 

120. ODO 

ELTLOD (IS) 

a 

AREA 

*  (  (  Q(l) 

♦ 

2>q(2) 

+ 

2.*q(3) 

) 

* 

A(l) 

k 

-(  2.*q(i) 

+ 

Q(2) 

•f 

2.*q(3) 

) 

* 

A(2)  )/ 

t  120. ODO 

ELTLOD (16)  »  AREA  *  (  Q(l)  Q(2)  ♦  Q(3>  )  /  3.0D0 
ELTLOD (17)  *  AREA  *  (  Q(l)  +  Q(2)  +  Q(3)  )  /  2.5D0 
END  IF 
C 


» 


I 


I 


I 


k 


ft 


» 


l 


l 


l 


ft 
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RETURN 

END 

**************************  '********** 

* 

SUBROUTINE  UHOTMT(  El.  E2,  E3.  G12,  G23,  G31,  V12,  V23,  V13,  * 
k  FIB,  Z,  C,  STRN,  AMAT,  BHAT,  DMAT,  GMAT,  * 

k  NLAY,  NMAT  )  * 

* 

MATPRP  COMPUTES  THE  EQUIVALENT  COMPOSITE  A,B,D  AND  * 

G  MATRICES  FOR  COMPOSITE  PLATE  PROPERTIES  IN  THE  * 

H0T3  ELEMENT  * 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  AMAT (4, 4) ,  BMAT(4,4),  DMAT(4,4),  GMAT(2,2), 
t  ABAR(6,6) ,  BBAR(6,6) ,  DBAR(6,6),  C(6,6,125), 

l  El  Cl) ,  E2(l) ,  E3(l) ,  V12(l) ,  V23(l)  ,  V13(l), 

k  G12(1),  G23(l),  G3 1(1) »  FIB(l),  Z(l),  TEMP(6,6), 

t  PIK6),  PIZ(6),  PIP(6,6)  ,  STRN  (6, 6) ,  Cl(6,6,125), 

t  S33C25) .RA13C2S) ,RA23(25) ,RA63(2S) ,CHH(25,3) , 

t  AAKC25.4) ,CH(25,7) ,BK(2Sf3) ,D3(25) ,ABC(25,4) 


************************************ 

OPTION  FLAG  TO  SIMULATE  FIRST  ORDER  SHEAR-DEFORMABLE  THEORY 

NSDF  «  0 

DO  K  =  1,  NLAY 

IF  (  NSDF  .Eq.  1  )  THEN 

SIMULATE  FIRST-ORDER  SHEAR  DEFORMABLE  THEORY: 

V13(X)  *  0.0 
V23(K)  *  0.0 
E3(K)  »  1.0E6*E1(K) 

END  IF 

CALL  UMTCMX  (  E1(K),  E2(K) ,  E3(K),  V12(K),  V23(K),  V13(K), 

k  G12(K),  G23(X),  G31(K) ,  FIB(K) ,  C1(1,1,K)  ) 


TRANSFORM  MATERIAL  PROPERTY  MATRIX  TO  LOCAL  COORDINATE  SYSTEM 


•  M 


[C’3  -  [Ts3[C3CTs]  ;  CC>3  =  [Ts3  [C3  [Ts3 


ft 


CALL  DMMUL(  STRN,  C1(1,1,K),  TEMP,  6,  6,  6  ) 
CALL  DMABT(  TEMP,  STRN,  C(l,i,K),  6,  '6,  6  ) 

END  DO 

PI  «  ACOS(-l.ODO) 

HALF  «  (  Z(NLAY+1)  -  Z(l)  )  /  2.0 

THK  *  2*HALF 

AK  «  SQRT(5.D0/6.D0) 

AKZ  *  SQRT (42 . DO/ 85 . DO) 

INITIALIZE  MATRICES 

CALL  DSCPY  (  O.ODO,  ABAR,  6,6) 

CALL  DSCPY  (  O.ODO,  BBAR,  6,  6  ) 

CALL  DSCPY  (  O.ODO,  DBAR,  6,  6  ) 

CALL  DSCPY  (  O.ODO,  GMAT,  2,  2  ) 

IF  (  NMAT  .EQ.  1  )  THEN 

COMPUTE  LAMINATE  CONSTITUTIVE  MATRICES  USING 
STRAIN-BASED  VERSION  OF  HIGHER-ORDER  THEORY 

HI  »  (  HALF  ) 

H2  *  (  HALF**2  ) 

H3  *  (  HALF**3  ) 

H4  =  (  HALF**4  ) 

H5  *  (  HALF* *5  ) 

H6  «  (  HALF**6  ) 

FORM  CONSTANTS  TO  ENFORCE  ZERO  SHEAR  BOUNDARY 
CONDITION  AT  THE  TOP  AND  BOTTOM  SURFACES 

R13  «  C(l,3,l)  /  C(3,3,l)  -  C(l,3,NLAY)  / 

R23  *  C(2,3, 1)  /  C(3,3,l)  -  C(2,3,NLAY)  / 

R36  *  C(3,6, 1)  /  C(3,3,l)  -  C(3,6,NLAY)  / 

S13  »  CU.3,1)  /  C(3,3,l)  +  C(1,3,NLAY)  / 

S23  *  C(2,3, 1)  /  C(3,3,l)  +  C(2,3,NLAY)  / 

S36  »  C(3,6,l)  /  C(3,3,l)  +  C(3,6,NLAY)  / 

A1  «  -  (  HALF  /  S10.0  )  *  S13 

81  «  -  (  HALF  /  510.0  )  *  35.  *  R13 

A2  «  -  (  HALF  /  510.0  )  *  S23 

B2  «  -  (  HALF  /  510.0  )  *  85.  *  R23 

A6  *  -  (  HALF  /  510.0  )  *  S36 
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C(3,3,NLAY) 

C(3,3,NLAY) 

C(3,3,NLAY) 

C(3,3,NLAY) 

C(3,3,NLAY) 

C(3,3,NLAY) 


I 


» 


» 


» 


» 


» 


» 


I 


I 


t 


c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


86  ■  -  (  HALF  /  510.0  )  '*  85.  *  R36 
A3  *  42. DO/85. DO 

COMPUTE  LAMINATE  PROPERTY  MATRICES 


DO  K« 

1,  NLAY 

Z1 

«  (  Z(K+1) 

-  Z(K) 

Z2 

»  (  Z(K+1)**2 

-  Z(K)**2 

Z3 

«  (  Z(K+1)**3 

-  Z(K)**3 

Z4 

a  (  Z(K+1)**4 

-  Z(K)**4 

ZS 

a  (  Z(K+1)**5 

-  Z(K)**5 

Z6 

a  (  Z(K+l)**6 

-  Z(K)**6 

Z7 

a  (  Z(K+1)**7 

-  Z(K)**7 

EXPLICIT  INTEGRATION  OF  PHI  TERMS  (  OBTAINED  FROM  MACSYMA  )  : 
INT[PHI(I)]DZ 

PII(l)  *  (  105*A1*Z4-2*B1*H1*Z3-120*A1*H2*Z2+2*B1*H3*Z1  )  /  (4*H3) 

PII(2)  *  (  10S*A2*Z4-2*B2*H1*Z3-120*A2*H2«<Z2+2*B2*H3*Z1  )  /  (4*H3) 

PIK3)  «  (-  5*A3*Z4  ♦  30*A3*H2*Z2  )  /  (8*H3) 

PII(6)  *  (  105*A6*Z4-2*B6*H1*Z3-120*A6*H2*Z2+2*B6*H3*Z1  )  /  (4*H3) 

INT[PHI(I)Z]DZ 

PIZ(l)  «  (  168*A1*Z5-3*B1*H1*Z4-160*A1*H2*Z3+2*B1*H3*Z2  )  /  (8*H3) 

PIZ(2)  «  (  168*A2*Z5-3*B2*H1*Z4-160*A2*H2*Z3+2*B2*H3*Z2  )  /  (8*H3) 

PIZ(3)  »  (-  A3*ZS  ♦  S*A3*H2*Z3  )  /  (2*H3) 

PIZ(6)  a  (  168*A6*Z5-3*B6*H1*Z4-160*A6*H2*Z3+2*B6*H3*Z2  )  /  (8*H3) 

INT[PHI(I)PHI(J)]DZ 


PIP(l.l) 


PIP(1 ,2) 


((  31500*A1*A1 
(  -1050*A1*B1 

(-50400*A1*A1  +  9*B1*B1 

(  1425*A1*B1 

(  24000*A1*A1  -10*B1*B1 

(  -  600*A1*B1 

(  5*B1*B1 

(C  630Q0*A1*A2 

(  -1050*<A1*B2+B1*A2) 

(-100800*A1*A2 


PIP(1 ,3) 


)  *Z7  ♦ 

)*H1*Z6  + 

)*H2*Z5  + 

)*H3*Z4  ♦ 

) *H4*Z3  + 

)*H5*Z2  ♦ 

)*H6*Z1  )  /  (20*H6) 
)«■  Z7  ♦ 

)*H1*Z6  ♦ 
♦18*B1*B2)*H2*ZS  ♦ 

(  142S*(A1*B2+B1*A2)  )*H3*Z4  ♦ 

(  48000*A1*A2  -20*B1*B2)*H4*Z3  ♦ 

(  -600*(A1*B2+B1*A2)  )*HS*Z2  ♦ 

(  10*B1*B2)*H6*Z1  )  /  (40*H6) 

((  -300*A3*A1  )*  Z7  + 


I 


» 


I 


I 


I 


I 


I 


I 


I 


41 


» 


■  ’i  i 


k 

( 

5*A3*B1)*H1*Z6  + 

k 

( 

1500*A3*Ai 

)*H2*Z5  + 

k 

( 

-25*A3*B1)*H3*Z4  ♦ 

k 

( 

-1200*A3*A1 

)*H4*Z3  ♦ 

k 

( 

1S*A3*B1)*H5*Z2  ) 

PIP(1 ,6) 

* 

(( 

63000*A1*A6 

)*  Z7  + 

k 

( 

-1050*(A1*B6+B1*A6)  )*H1*Z6  ♦ 

k 

(- 

100800*A1*A6 

+ 18*B1*B6) *H2*Z5  ♦ 

k 

( 

1425* (Al*B6+Bi*A6)  )*H3*Z4  + 

k 

( 

48000*A1*A6 

-20*B1*B6)*H4*Z3  ♦ 

k 

( 

-600*(A1*B6+B1*A6)  )*H5*Z2  + 

k 

( 

10*B1*B6)*H6*Z1  ) 

PIP(2,2) 

sx 

((  31500*A2*A2 

)  *Z7  + 

k 

( 

-1050*A2*B2  )*H1*Z6  ♦ 

k 

( -50400* A2*A2 

+  S*B2*B2  )*H2*Z5  ♦ 

k 

( 

1425*A2*B2  )*H3*Z4  ♦ 

k 

( 

24000*A2*A2 

-10*B2*B2  )*H4*Z3  + 

k 

( 

- 

600*A2*B2  )*H5*Z2  ♦ 

k 

( 

5*B2*B2  )*H6*Z1  ) 

PIP (2, 3) 

s 

C( 

-300*A3*A2 

)*  Z7  + 

k 

( 

5*A3*B2)*Hi*Z6  + 

k 

( 

1500*A3*A2 

)*H2*Z5  ♦ 

k 

( 

-25* A3*B2) *H3*Z4  ♦ 

k 

( 

-1200*A3*A2 

)*H4*Z3  ♦ 

k 

( 

15*A3*B2) *H5*Z2  ) 

PIP(2,6) 

3 

« 

63000*A2*A6 

)*  Z7  + 

k 

( 

-1050*(A2*B6+B2*A6)  )*H1*Z6  ♦ 

k 

<- 

■100800*A2*A6 

♦18*B2*B6)*H2*Z5  + 

k 

( 

1425* (A2*B6+B2*A6)  )*H3*Z4  + 

k 

( 

48Q00*A2*A6 

-20*B2*B6) *H4*Z3  + 

k 

( 

-600* (A2*B6*B2*A6)  )*H5*Z2  ♦ 

k 

( 

10*B2*B6) *H6*Z1  ) 

PIP(3,3) 

9 

« 

25*A3*A3 

)  *Z7  ♦ 

k 

( 

-210*A3*A3 

)*H2*Z5  ♦ 

k 

( 

525*A3*A3 

)*H4*Z3  ) 

PIPC3.6) 

3 

(( 

-300*A3*A6 

)*  Z7  ♦ 

k 

( 

5*A3*B6)*H1*Z6  + 

k 

( 

1500*A3*A6 

)*H2*Z5  ♦ 

k 

( 

-25* A3*B6) *H3*Z4  ♦ 

k 

( 

-1200*A3*A6 

)*H4*Z3  ♦ 

k 

( 

15*A3*B6)*K5*Z2  ) 

PIP(6,6) 

3 

<( 

31500*A6*A6 

)  *Z7  ♦ 

k 

( 

- 

1050*A6*B6  )*H1*Z6  ♦ 

k 

(-50400*A6*A6 

+  9*B6*B6  )*H2*Z5  ♦ 

k 

( 

1425*A6*B6  )*H3*Z4  + 

k 

(  24000*A6*A6 

-10*B6*B6  )*H4*Z3  ♦ 

k 

( 

- 

600*A6*B6  )*H5*Z2  ♦ 

k 

( 

5*B6*B6  )*H6*Z1  ) 

/  (  8*H6) 

/  (40*H6) 

/  (20*H6) 

/  (  8*H6) 

/  (40*H6) 

/  (28*H6) 

/  (  8*H6) 

/  (20*H6) 


COMPUTE  THE  LAMINATE  ABAR,  BBAR  AND  DBAR  MATRICES 


Call  dmasb  (  abar,  zi, 

CCl.l.K), 

ABAR,  6,  6  ) 

BBAR(l.l) 

M 

BBARCl, 1) 

+ 

CCl.l.K) 

* 

(  Z2  /  2:0 

+  PII(l) 

) 

BBAR(1,2) 

a 

BBARCl, 2) 

+ 

C(1,2,K) 

* 

(  Z2  /  2.0 

♦  PIIC2) 

) 

BBARCl ,3) 

s 

BBARCl ,3) 

+ 

CC1.3.K) 

* 

C 

PIIC3) 

) 

BBAR(1 ,6) 

a 

BBARCl, 6) 

+ 

CC1.6.K) 

* 

(  Z2  /  2.0 

♦  PIIC6) 

) 

BBAR(2,1) 

m 

BBARC2.1) 

+ 

CC2.1.K) 

* 

C  Z2  /  2.0 

♦  PIICD 

) 

BBAR(2,2) 

a 

BBARC2.2) 

+ 

CC2.2.K) 

* 

(  Z2  /  2.0 

+  PIIC2) 

) 

BBARC2.3) 

* 

BBARC2.3) 

4 

CC2.3.K) 

* 

( 

PIIC3) 

) 

BBAR(2,6) 

m 

BBARC2.6) 

4 

CC2.6.K) 

(  Z2  /  2.0 

+  PIIC6) 

) 

3BAR(3, 1) 

32 

BBARC3.1) 

+ 

CC3.1.K) 

* 

C  Z2  /  2.0 

♦  PII(l) 

) 

BBARC3.2) 

3 

BBARC3.2) 

+ 

CC3.2.K) 

* 

(  Z2  /  2.0 

+  PIIC2) 

) 

BBAR(3,3) 

3 

BBARC3.3) 

+ 

CC3.3.K) 

* 

( 

PIIC3) 

) 

BBARC3.6) 

s 

BBARC3.6) 

4 

CC3.6.K) 

* 

(  Z2  /  2.0 

♦  PII(6) 

) 

BBAR(6,1) 

= 

BBAR(6,1) 

4 

CC6.1.K) 

* 

C  Z2  /  2.0 

♦  PII(l) 

) 

BBAR(6,2) 

3 

BBARC6.2) 

4 

CC6.2.K) 

* 

(  Z2  /  2.0 

+  PIIC2) 

) 

BBAR(6,3) 

3 

BBARC6.3) 

4 

CC6.3.K) 

* 

( 

PIIC3) 

) 

BBAR(6,6) 

- 

BBARC6.6) 

4 

CC6.6.K) 

* 

C  Z2  /  2.0 

+  PIIC6) 

) 

DBAR(l.l) 

s 

DBAR(l.l) 

4 

CC3.3.K) 

* 

PIP(l.l)  ♦ 

CCl.l.K) 

* 

Z3/3.0 

4 

C(1,3,K) 

* 

PIZ(l)  ♦ 

CC1.3.K) 

* 

PIZ(l) 

DBAR(1,2) 

3 

DBARC1.2) 

4 

CC3.3.K) 

* 

PIPC1.2)  ♦ 

CC1.2.K) 

* 

Z3/3.0 

4 

CC2.3.K) 

PIZ(l)  + 

CC1.3.K) 

* 

PIZC2) 

DBAR(1 ,3) 

3 

DBARCl.3) 

4 

CC3.3.K) 

* 

PIPCl.3)  + 

CC1.3.K) 

* 

PIZC3) 

DBAR(1 ,6) 

3 

DBAR(1,6) 

4 

CC3.3.K) 

* 

PIPCl.6)  + 

CC1.6.K) 

* 

Z3/3.0 

4 

CC3.6.K) 

* 

PIZ(l)  + 

CC1.3.K) 

* 

PIZ(6) 

DBARC2.2) 

S 

DBARC2.2) 

4 

C(3,3,K) 

* 

PIPC2.2)  ♦ 

CC2.2.K) 

* 

Z3/3.0 

4 

CC2.3.K) 

* 

PIZC2)  ♦ 

CC2.3.K) 

* 

PIZC2) 

DBAR(2,3) 

8 

DBARC2.3) 

4 

CC3.3.K) 

* 

PIPC2.3)  + 

CC2.3.K) 

* 

PIZC3) 

DBARC2.6) 

8 

DBARC2.6) 

4 

CC3.3.K) 

* 

PIPC2.6)  + 

CC2.6.K) 

* 

Z3/3.0 

4 

CC3.6.K) 

* 

PIZ(2)  ♦ 

CC2.3.K) 

* 

PIZC6) 

DBAR(3,3) 

S 

DBARC3.3) 

4 

C(3,3,K) 

* 

PIP(3,3) 

DBAR(3,6) 

8 

DBARC3.6) 

4 

CC3.3.K) 

* 

PIPC3.6)  ♦ 

CC3.6.K) 

* 

PIZC3) 

DBAR(6,6) 

3 

DBARC6.6) 

4 

CC3.3.K) 

* 

PIPC6.6) 

CC6.6.K) 

* 

Z3/3.0 

4 

CC6.3.K) 

* 

PIZC6)  + 

CC6.3.K) 

* 

PIZC6) 

INT[P2BAR]DZ 

P2B2I  »  (45 

*  Z5  -  150 

*  H2  *  Z3 

4 

225  *  H4  * 

Zl)  /  (144 

*  H4) 

GMAT(l.l) 

3 

GMATCl.l) 

4 

CC4.4.K) 

* 

P2B2I 

GMAT(1,2) 

8 

GMATC1.2) 

4 

CC4.5.K) 

* 

P2B2I 

GMAT(2,2) 

8 

GMATC2.2) 

4 

CC5.5.K) 

* 

P2B2I 

GMAT(2, 1) 

8 

GHATC1.2) 

END  DO 


ELSE  IF  (‘NMAT  .EQ.  2  )  THEN 
C 

C  COMPUTE  LAMINATE  CONSTITUTIVE  MATRICES  USING 

C  STRESS-BASED  VERSION  OF  HIGHER-ORDER  THEORY 

C  (VERSION  I) 

C 

C  INITIALIZE  VARIABLES 

C 

ATI  «  0.0 
AT2  »  0.0 
AT12  *  0.0 
AT3  *  0.0 

C  i 

A44  »  0.0 
A45  *  0.0 

A55  »  0.0 
c 

DO  100  K=l,  NLAY  , 

C 

HK  »  Z(K) 

HKP1  »  Z(K+1) 

C 

ZOI  «  HKP1  -  HK 

C  1 

ATI  »  -(Z0I*C(1 ,3,K)/C(3,3,K))/THK  +  ATI 
AT2  »  -(Z0I*C(2,3,K)/C(3,3,K))/THK  +  AT2 
AT12*  -(Z0I*C(3,6,K)/C(3,3,K))/THK  ♦  AT12 
AT3  *  (Z0I/C(3.3,K))/THK  +  AT3 

C  * 

AAK(K,1)  =  -C(l ,3,K)/C(3,3,K) 

AAK(K,2)  *  -C(2,3,K)/C(3t3,K) 

AAK(K,3)  »  1.00/C(3,3,K) 

AAK(K,4)  a  -C(3,6,K)/C(3,3,K) 

C  > 

CH(K, 1)  a  C(1,:,K)  +  C(1,3,K)*AAK(K,1) 

CH(K,2)  a  C(1,2,K)  <•  C(1 ,3,K)*AAK(K,2) 

CH(K,3)  a  C(1,6,K)  +  C(1 ,3,K)*AAK(K ,4) 

CH(K,4)  »  C(1,3,K)*AAK(K,3) 

CH(K,5)  *  C(2,2,K)  +  C(2,3,K)*AAK(K,2)  . 

CH(K,6)  *  C(2,6,K)  +  C(3,6,K)*AAK(K,2) 

CH(K,7)  «  C(6,6,K)  -  C(3,6,K)**2/C(3,3,K) 

C 

C44  »  C(K,4,4) 

C4S  «  C(KP4,5) 

C55  »  C(K,5,5)  * 


44 

I 


5544  «  C55/(C44*C55-C45**2) 
SS55  •  C44/(C44*CS5-C45**2) 

5545  «  -C45/(C44*C55-C45**2) 


C 

AFACTQR  «  -(4*HKP1**3-3*THK**2*HKP1  - 

1  4*HK**3+3*THK**2*HK)/THK**3/2 . 0 

A44  *  A44  ♦  AFACTQR*SS44 
A4S  »  A45  +  AFACTQR+SS45 
A55  »  AS5  +  AFACTQR+S555 
c 

100  CONTINUE 
c 

DENN*  1.0/ (A44*A55-A45**2) 

B44  *  (S . 0/4 . 0) *A44*DENN 
B4S  *-  (5 . 0/4 . 0) *A45*DENN 
B55  *  (5.0/4.0)*A55*DENN 
C 

AR13  *  AT1/AT3 
AR23  »  AT2/AT3 
AR123-  AT12/AT3 
C 

DO  200  K  *  1,  NLAY 
C 

HK  »  Z(K) 

HKP1  »  Z(K+1) 

C 

ZOI  *  HKP1  -  HK 
C 

Z1I  =  (HKP1**2  -  HK**2)  /  2.0 
Z2I  *  (HKP1**3  -  HK**3)  /  3.0 

Z3I  «  02941176470588236* ( 14. 0*HKP1**4-21 .0*THK**2*HKP1**2 

1  -14.0*HK**4  +  21 . 0*THK**2*HK**2) /THK**2 

C 

Z4I  ■  (560.0*HKP1**7-1176.0*THK**2*HKP1**5 

1  +735 .0*THK**4*HKP1**3-560 . 0*HK**7 

2  +1176. 0*THK**2*HK**5-735 . 0*THK**4*HK**3) 

3  /THK**4/ 1445.0 
C 

BK(K,1)  ■  AAK(K.l)  -  AAK(K,3)*AR13 
BK(K,2)  «  AAK(K,2)  -  AAK(K,3)*AR23 
BK(K,3)  »  AAK(K,4)  -  AAK(K,3)*AR123 
C 

D3(K)  *  AAK(K,3)/AT3 

C 

TB  «  CH(K,4)  +  BK(K, 1) 

ABC(K.l)*  TB*AR13 
ABC(K,2)«  TB+AR23 
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ABC(K,4)»  TB*AR123 
ABC(K,3)»  TB/AT3 

CHH(K,1)  *  CH(K,i)-Afif(K,l) 

CHH(K,2)  »  CH(K,2)-ABC(K,2) 

CHH(K,3)  «  CB(K,3)-ABC(K ,4) 

COMPUTE  THE  LAMINATE  ABAR,  BBAR  AND  DBAR  MATRICES 

ABAR(l.l)  *  ABAR(l.l)  +  CHH(K.l)  *  701 

ABAR(1 ,2)  «  ABAR(i,2)  +  CHHCX.2)  *  ZOI 

ABAR(1 ,3)  «  ABAR(1 ,3)  +  ABC(K,3)  *  ZOI 

ABAR(1,6)  *  ABAR(1 ,6)  +  CHH(K,3)  *  ZOI 

ABAR(2,2)  *  ABAR(2,2)+(CH(Kk5)-AR23*(BK(K,2)-AAK(K,2)))*Z0I 
ABAR(2,3)  *  ABAR(2,3)  -  AR23  *  Z0I/(C(K,3,3)*AT3) 

ABAR(2,6)  =  ABAR(2,6)  +  (C(K,2,6) 

+  (AR123*AR23-C(K,2,3)*C(K,3,6) )/C(K,3,3))*  ZOI 

BBAR(l.l)  *  BBAR(l.l)  +  CH(K,1)  *  Z1I  -  ABC(K,1)*Z3I 

BBAR(l  ,2)  *  BBARd  ,2)  +  CH(K,2)  *  Z1I  -  ABC(K,2)*Z3I 

BBAR(1,3)  =  BBAR(1, 3)  +  2.0*ABC(K,3)*  Z3I 
BBARCl ,6)  =  BBAR(1 ,6)  +  CH(K,3)  *  Z1I  -  ABC(K,4)*Z3I 

BBAR(2, 1)  =  BBAR(2, 1)  +  CH(K,2)  *  Z1I  +  AR13*AR23*Z3I/C(K,3,3) 

BBAR(2,2)  *  BBAR(2,2)  +  CH(K,5)  *  Z1I  +  AR23*AR23*Z3I/C(K,3,3) 

BBAR(2,3)  *  BBARC2.3)  -  2.0+AR23*  Z3I/(AT3*C(K,3,3)) 

BBAR(2,6)  «  BBAR(2,6)  +  CH(K,6)  *  Z1I+  AR123*AR23*Z3I/C(K,3,3) 

TCI  *  1 . 0/ (C(K ,3 ,3) *AT3**2) 

ABAPl  ,,3)  *  ABAR(3,3)  +  Z0I+FC1 
ABAR(3,6)  =  ABAR(3,6)  -  Z0I*AT12*FC1 

BBAR(3,1)  =  BBAR(3,1)  -  AT1*Z3I*FC1 
BBAR(3,2)  *  BBAR(3,2)  -  AT2*Z3I*FC1 
BBAR(3,3)  =  BBARC3.3)  +  2.0*Z3I*FC1 
BBAR(3,6)  =  BBAR(3,6)  -  AT12*Z3I*FC1 

FC2  *  -  AR123/C(K,3,3) 

ABAR(6,6)  -  ABAR(6,6)  +  (CH(K,7)  -  AR123*FC2)*Z0I 

BBAR(6,1)  -  B3AR(6,1)  +  CH(K,3)  *  Z1I  -  AR13*Z3I*FC2 

BBAR(6,2)  »  BBAR(6,2)  +  CH(K,6)  *  Z1I  -  AR23*Z3I*FC2 

BBAR(6,3)  *  BBAR(6,3)  +2.0*  FC2*  Z3I/AT3 
BBAR(6,6)  *  BBARC6.6)  +  CH(K,7)  *  Z1I  -  AR123*Z3I*FC2 
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FC3  «  AR13/CCK.3.3) 

DBAR(1,1)  *  DBAR(1,1)  +  CH(K,1)  *  Z2I  +  AR13*FC3*Z4I 
DBAR(i,2)  =  DBAR(1 ,2)  +  CH(K,2)  *  Z2I  +  AR23*FC3*Z4I 
D3AR(l ,3)  -  DBAR(i ,3)  -  2-0*FC3*Z4I/AT3 
DBAR(1,6)  *  DBAR(1 ,6)  +  CH(K,3)  *  Z2I  +  AR123*FC3*Z4I 
C 

FC4  «  AR23/C(K,3 ,3) 

C 

DBAR(2,2)  =  DBAR(2,2)  +  CH(K,5)  *  Z2I  +  AR23*FC4*Z4I 
DBAR(2,3)  =  DBAR(2,3)  -  2.0*FC4*Z4I/AT3 
DBAR(2,6)  =  DBAR(2,6)  +  CH(K,6)  *  Z2I  ♦  AR123*FC4*Z4I 
C 

DBAR(3,3)  =  DBAR(3 ,3)  +  4.0*D3(K)*Z4I/AT3 

DBAR(3,6)  =  DBAR(3,>5)  -  2.0*AR123*Z4I/(AT3*C(K,3,3)) 

C 

DBAR(6,6)  =  DBAR(6,t)  +  Z2I*CH(K,7)  +  AR123**2*Z4I*AAK(K,3) 

C 

ABAR(2, 1)  ■  ABAR(1 ,2) 

ABARC3.1)  3  ABAR(1 ,3) 

ABAR(3,2)  »  ABAR(2,3) 

ABAR(6,1)  3  ABAR(i ,6) 

ABAR(6,2)  =  ABAR(2 ,6) 

ABAR(6,3)  =  ABAR(3,6) 

C 

FACTOR  *  (48*HKPl**5-40*tHK**2*HKPl**3+15*tHK**4*HKPi- 
1  48*HK**5+40*tHK**2*HK**3-15*tHK**4*HK)/tHK^*4/15.0 

C 

C44  a  COC.4.4) 

C45  »  C(K,4,5) 

C55  a  C(K,5,5) 

C 

GCAP11  =  (25*A45**2*C55+50*A44*A45*C45+25*A44**2*C44)/(C44* 

1  (16*A44**2*A55**2-32*A44*A45**2*A55+16*A45**4)*C55+ 

2  C45**2*(-16*A44**2*A55**2+32*A44*A45**2*A55- 

3  16*A45**4)) 

C 

GCAP12  =  -(25*A45*A55*C55+C45*(25*A44*A55+25*A45**2)+ 

1  25*A44*A45*C44)/ (C44* ( 16*A44**2*A55**2-32*A44* 

2  A45**2*A55+16*A45**4)*C55+C45**2*(-16*A44**2* 

3  A55**2+32*A44*A45**2*A55-16*A45**4) ) 

C 

GCAP22  -  (25*A55**2*C55+50*A45*A55*C45+25*A45**2*C44)/(C44* 

1  (16*A44**2*A55**2-32*A44*A45**2*A55+16*A45**4)*C55+ 

2  C4S**2*(-16*A44**2*A55**2+32*A44*A4S**2*AS5-16*A45**4)) 
C 

GMAT(2,2)  3  GMAT(2,2)  +  GCAPll*FACTOR 
GMAT(1 ,2)  =  GMAT(1,2)  +  GCAP12*FACT0R  . 

GHATd.l)  3  GMAT(l.l)  ♦  GCAP22*FACT0R 
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<JMAT(2,1)  3  GMAT(1 ,2) 


► 


C 

200  CONTINUE 

C  SCALING  TO  THE  ORIGINAL  LEGENDRE  FORMULATION  ' 

C  WITH  THE  USE  OF  (3/2)  FACTOR  AND  HALF  THICKNESS 

C 

SCALE  =  (3.0/2.0)/(tHk/2.0) 

C 

DO  99  I  *  1,  3  > 

BBAR(I,3)  *  BBAR(I ,3)*SCALE 

DBAR(I,3)  *  DBAR(I,3)*SCALE 

99  CONTINUE 

C 

DBAR(3,6)  *  DBAR(3,6)*SCALE  > 

BBAR(6,3)  «  BBAR (6 , 3 ) +SCALE 
DBAR(3,3)  *  DBAR(3,3)*SCALE 
C 

DBAR(2,1)  *  DBAR(1,2) 

DBAR(3,1)  *  DBAR(1,3) 

DBAR(3,2)  *  DBAR(2,3) 

DBAR(6, 1)  3  DBARC1.6) 

DBAR(6,2)  =  DBARC2.6) 

DBAR(6,3)  =  DBAR(3,6) 

C 

ELSE  IF  (  NMAT  .EQ.  3  )  THEN  > 

C 

C  COMPUTE  LAMINATE  CONSTITUTIVE  MATRICES  USING 

C  STRESS-BASED  VERSION  OF  HIGHER-ORDER  THEORY 

C  (VERSION  II) 

C  > 

C  INITIALIZE  VARIABLES 

C 

SU  =  0.0 

S12  *  0.0 

S22  *  0.0  I 

Til  »  0.0 

T12  *  0.0 

T16  =  0.0 

T13  »  0.0 

TH11  «  0.0 

TH12  «  0.0  * 

TH16  »  0,0 

TH13  »  0.0 

T21  =  0.0 

T2S  -  J.O 

T26  *  0.0  * 

T23  «  0.0 
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c 

c 

c 


c 
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TH21  «  0.0 
TH22  «  0.0 
TH26  -0.0 
TH23  «  0.0 

All  •  0.0 
A12  *  0.0 
A21  ■  0.0 
A22  ■  0.0 
Bll  »  0.0 
B22  -  0.0 
A44  «  0.0 
A45  «  0.0 
A55  *  0.0 

HL  »  HALF 

DO  K  *  1,  NLAY 

HK  *  Z(K) 

HKP1  *  Z(K+1) 

ZOI  *  HKP1  -  HK 

Z1I  =  (HKP1**2  -  HK**2)  /  2.0 

FINT  *  -(HKP1-HK)*(HKP1+HK)*(-3*THK**2+2*HKP1**2+ 

1  2*HK**2)/THK**3/3.0 

FINT2  »  (320*HKP1**7-672*THK**2*HKP1**5+420*THK**4*HKP1**3- 

1  320*HK**7+672*THK**2*HK**5-420*THK**4*HX**3) / 

2  THK**6/315.0 

ZFINT  »  -(8*HKP1**5-10*THK**2*HKP1**3-8*HK**5* 

1  10*THK**2*HK**3)/THK**3/15 .0 

PINT  »  -(4*HKP1**3-3*THK**2*HKP1-4*HK**3+3*THK**2*HK)/ 

1  THK**2/3.0 

PINT2  »  (48*HKP1**5-40*THK**2*HKP1**3+15*THK«I*4*HKP1- 
1  48*HK**5+40*THK**2*HK**3M5*THK**4*HK)/THK**4/15.0 

S33(K)  -  1.0  /  C(3,3,K) 

RA13(K)  »  C(1,3,K)  /  C(3,3 ,K) 

RA23CK)  «  C(2,3,K)  /  C(3,3,K) 

RA63CK)  »  0(6, 3, K)  /  C(3,3,K) 

Ci(l,l,K>  »  C(l.l.K)  -  RA13(h)  *  C(i,3,K) 

01(1,2, K)  »  C(1,2,K)  -  RA13(K)  *  C(2,3,K) 

01(1,6, K)  *  0(1, 6, K)  -  RA1300  *  0(6, 3, K) 

01(2, 2, K)  *  0(2, 2, K)  -  !A23(K)  *  0(2, 3,K) 

01(2, 6, K)  *  0(2, 6, K)  -  RA23(K)  *  0(6, 3,K) 

01(6, 6, K)  »  0(6, 6, K)  -  RA63(K)  *  0(6, 3, K) 
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Sll  * 

Sll 

+ 

ZOI 

* 

S33(K)**2 

S12  » 

S12 

+ 

FINT 

* 

S33(K)**2 

S22  a 

S22 

+ 

FINT2 

* 

S33(K)**2 

Til  ■ 

Til 

+ 

ZOI 

* 

C(1,3,K)*  S33(K)**2 

T12  » 

T12 

+ 

ZOI 

* 

C(2,3,")*  S33(K)**2 

T16  » 

T16 

+ 

ZOI 

* 

C(3,6 . .0*  S33(K)**2 

T13  « 

T13 

+ 

ZOI 

* 

S33(K) 

T21  » 

T21 

+ 

FINT 

* 

C(1,3,K)*  S33(K)**2 

T22  a 

T22 

+ 

FINT 

* 

C(2,3,K)*  S33(K)**2 

T26  a 

T26 

+ 

FINT 

* 

C(3,6,K)*  S33(K)**2 

T23  = 

T23 

+ 

FINT 

* 

S33(K) 

TH11  *  TH11  +  Z1I  *  C(1,3,K)*  S33(K)**2 

TH12  =  TH12  +  Z1I  *  C(2,3,K)*  S33(K)**2 

TH16  *  TH16  +  Z1I  *  C(3,6,K)*  S33(K)**2 

TH13  =  TH13  +  2.0  *  Z1I  *  S33(K) 

TH21  =  TH21  +  ZFINT  *  C(1,3,K)*  S33(K)**2 
TH22  *  TH22  +  ZFINT  *  C(2,3,K)* ,S33(K)**2 
TH26  =  TH26  +  ZFINT  *  C(3,6,X)*  S3?(K)**2 
TH23  *  TH23  +  2.0  *  ZFINT  *  S33(K) 

C44  *  C(4,4,K) 

C45  a  C(4,5,K) 

C55  »  C(5,5,K) 

544  *  C55  /  (C44*C55-C45**2) 

S55  »  C44  /  (C44*C55-C45**2) 

545  =  -C45  /  (C44*C55-C45**2) 

All  «  All  +  FINT2  *  S55**2 

A12  »  A12  +  PINT2  *  S45+S55 

A21  »  A21  +  PINT2  *  S45+S44 

A22  =  A22  +  PINT2  *  S44**2 

Bll  a  Bll  +  PINT  *  S55 

B22  a  B22  +  PINT  *  S4* 

AF ACTOR  =  -(4*HKP1**3-3*THK**2*HKP1-4*HK**3+3*THK*+2*HK)/ 
THK**3/2.0 

A44  »  A44  +  AfACTOR  *  S44 
A45  «  A45  ♦  AfACTOR  *  S45 
A55  »  A55  +  AfACTOR  *  S55 


END  DO 


*  ’i 


» 


B44  =  (5. 0/4.0)  *  A 44  /  (A44*A55-A45**2) 

B45  *- (5. 0/4.0)  *  A45  /  (A44*A55-A45**2) 

B55  *  (5. 0/4.0)  *  A55  /  (A44*A55-A45**2) 

C 

C  AVERAGE  COEFFICIENTS 

C 

Rll  *  S22  /  (S11+S22  -  S 12**2) 

R22  *  Sll  /  (S11*S22  -  S12**2) 

R12  *  -S12  /  (S11*S22  -  S12**2) 

C 

qil  »  Rll  *  Til  +  R12  *  T21 

Q2 i  =  R12  *  Til  +  R22  *  T21 

Q12  =  Rll  *  T12  +  R12  *  T22 

Q22  a  R12  *  T12  ♦  R22  *  T22 

Q13  *  Rll  *  T13  +  R12  *  T23 

Q23  =  R12  *  Ti3  +  R22  *  T23 

qi6  =  Rll  *  T16  R12  *  T26 

q26  »  R12  *  T16  +  R22  *  T26 

C 

qHll  »  Rll  *  TH11  +  R12  *  TH21 

qH21  =  R12  *  TH11  ♦  R22  *  TH21 

qH12  =  Rll  *  TH12  ♦  R12  *  TH22 

qH22  =  R12  *  TH12  ♦  R22  *  TH22 

qH16  a  Rll  *  TH16  +  R12  *  TH26 

qH26  *  R12  *  TH16  ♦  R22  *  TH26 

qH13  *  Rll  *  TH13  *  R12  *  TH23 

qH23  »  R12  *  TH13  +  R22  *  TH23 

C 

Dll  =  A22  *  Bll  /  (AU*A22  -  A12*A21) 

D12  =  -A12  *  B22  /  (A11*A22  -  A12*A21) 

D21  a  -A21  *  Bll  /  (A11*A22  -  A12*A21) 

D22  =  All  *  E22  /  (A11*A22  -  A12*A21) 

C 

SCALE  =  (3.0  /  2.0)  /  KL 
C 

DO  Kal,  NLAY 
C 

HK  =  Z(K) 

HKP1  a  Z(K+1) 

ZOI  a  HKP1  -  HK 
Z1I  «  (HKP1**2  -  HK**2)  /  2.0 

Z2I  =  (HKP1**3  -  HK**?)  /  3.0 

C 

PINT2  =  (48*HKP1**5-40*THK**2*HKP1**3+15*THK**4*HKP1- 

1  48*HK**5+40*THK**2*HK**3-15vTHK**4*HK)/ 

2  THK**4/15.0 
C 

FINT  »  -(HKP1-HK)*(HKP1+HK)*(-3*THK**2+2*HKP1**2+ 
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2*HK**2)/'THK**3/3.0 

FINT2  *  (320*HKP1**7-672*THK**2*HKP1**5+420*THK**4*HKP1**3- 
320*HK**7+672*THK**2*HK**5-420*THK**4*HK**3)/ 
THK**6/315.0 

C44  «  G(4,4,K) 

C45  «  C(4,5,K) 

CS5  *  C(5,5,K) 

544  *  C55/(C44*C55-C45**2) 

S55  »  C44/(C44*C55-C4S**2) 

545  »  -C45/(C44*C55-C45**2) 

COMPUTE  THE  LAMINATE  ABAR,  BBAR  AND  DBAR  MATRICES 

EXPLICIT  INTEGRATION  OF  P  TERMS  (  OBTAINED  FROM  MACSYMA.  )  : 

PI  -*  (320*q21**2*HKPl**7-672*Q21**2*THK**2*HKPl**S~ 
420*Q11*Q21*THK**3*HKP1**4+420*Q21**2*THK**4* 
HKPl**3+630*qil*q21*THK**5*HK?l**2+315*qil**2* 
THK**6*HKPl+q21**2*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+qil+q21* (420*THK**3*HK**4~ 
630*THK**5*HK**2)-315*qil**2*THK**6*HK)/ 

THK**6/31S.Q 

P2  *  (HKPl**2*(3lS*qil*q22*THK**5+31S*qi2*Q21*THK**5)+ 
HKPl**4*(-210*qil*q22*THK*#3-210*qi2*q21*THK**3)+ 
320*q21*q22*HKPl**7-672*q2i*q22*THK**2*HKPl**5+ 
420*q21*q22*THK**4*HKPl**3+315*qil*qi2*THK**6*HKPl+ 
q22* (q21*  C-320+HK**7+672*THK**2*HK**5-420*THK**4* 
HK**3)+210*qil*THK**3*HK**4-315*qil*THK**5*HK**2)+ 
q21*(210*qi2*THK**3*HK**4-315*qi2*THK**5*HK**2)- 
31S*qil*qi2*THK**6*HK)/THK**6/31S .0 

P3  *  (HKPl**2*(31S*qii*q23*THK**5+315*Qi3*q21*THK**5)+ 
HKPl**4*(-210*qil*q23*THK**3-210*qi3*q21*THK**3)+ 
320*q21*q23*HKPl+*7-672*q21*q23*THK**2*HKPl*»5* 
420*q21*q23*THK**4*HKPl**3+315*qil*qi3*THK**6*HKPl+ 
q23*(q21*(-320*HK**7+672*THK**2*HK**5-420*THK**4* 
HK**3)+210*qil*THK**3*HK**4-315*qil*THK**S<‘HK**2}+ 
q21*(210*qi3*THK**3*HK**4-315*qi3*THK**5*HK**2)- 
315*qil*qi3*THK**6*HK)/THK**o/3l5.0 

P4  -  (HKPl**2*(315*qil^q26#THK**5+315*qi6*q21*THK**5)+ 
HKPH‘*4*(-210*qil*q26*THK**3-21Q*Ql6*q21*THK**3)+ 
320*q21*q26*HKPl**7-672*q21*q26*THK**2*HKPl**5+ 
420*q21*q26*THK**4*HKPl**3+315*qil<,qi6*THK**6*HKPl* 
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Q26*(Q21*(-320*HK**7+672*THK**2*HK**5-420*THK**4* 

HK**3)+210*Q11*THK**3*HK**4-315*Q11*THK**5*HK**2)+ 

Q21*(210*Q16*THK**3*HK**4-315*Q16*THK**5*HK**2)- 

31S*qil*Q16*THK**6*HK)/THK**6/315.0 

P5  «  (320*Q22**2*HKP1**7-672*Q22**2*THK**2*HKP1**5- 
420*Q12*Q22*THK**3*HKP1**4+420*Q22**2*THK**4*  ■ 
HKPl**3+630*Qi2*Q22*THK**5*HKPl**2+3l5*Q12**2* 
THK**6*HKP1+Q22**2*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+Q12*Q22*(420*THK**3*HK**4- 
630*THK**5*HK**2)~315*Q12**2*THK**6*HK)/ 
THK**6/315.0 

P6  *  (HKPl**2*(315*qi2*q23*THK**S+315*qi3*Q22*THK**5)+ 
HKPl**4*C-210*qi2*Q23*THK**3-2i0*qi3*q22*THK**3)+ 
320*q22*q23*HKPl**7-672*q22*q23*THK**2*HKPl**5+ 
420*q22*q23*THK**4*HKPl**3+315*qi2*qi3*THK**6*HKPl+ 
q23*(q22*(-320*HK**7+672*THX**2*HK**5~420*THK**4* 
HK**3)+210*qi2*THK**3*HK**4-315*qi2*THK**5*HK**2)+ 
q22*(210*qi3*THK**3*HK**4-315*qi3*THK**5*HK**2)- 
315*qi2*qi3*THK**6*HK)/THK**6/315.0 

P7  =  (HKPl**2*(3i5*qi2*q26*THK**S+315*q i6^q22*THK**5)+ 
HKPl**4*(-210*qi2*q26*THK**3-210*qi6*q22*THK**3)+ 
320*q22*q26*HKPl**7-672*q22*q26*THK**2*HKPl**5+ 
420*q22*q26*THK**4*HKPl**3+315*qi2*qi6*THK**6*HKPl+ 
q26*(q22*(-320*HK**7+672*THK**2*HK**5-420*THK**4* 
HK**3)+210*qi2*THK**3*HK**4-315*qi2*THK**5*HK**2)+ 
q22*(210*qi6*THK**3*HK**4-315*qi6*THK**5*HK**2)- 
315*qi2*Q16*THK**6*HK)/THK**6/315.0 

P8  *  (320*q23**2*HKPl**7-672*q23**2*THK**2*HKPl**5- 
420*qi3*q23*THK**3*HKPl**4+420*q23**2*THK**4* 
HKPl**3+630*qi3*q23*THK**5*HKPl**2+315*qi3**2* 
THK**6*HKPl+q23**2*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+qi3*q23*(420*THK**3*HK**4- 
630*THK**5*HK**2)-315*qi3**2*THK**6*HK)/ 
THK**6/315.0 

P9  «  (HKPl**2a(31S*Q13*q26*THK**5+315*qi6*q23*THK**5)+ 
HKPl**4*(-210*Q13*q26*THK**3-210*qi6*q23*THK**3)+ 
320*q23*q26«HKPl**7-672*q23*q26*THK*»2*HKPl**5+ 
420*q23*q26*THK**4*HKPl**3+315*qi3*qi6*THK**6*HKPl+ 
q26*(Q23*(-320*HK**7+672*THK**2*HK**5-420*THK**4* 
HK**3)+210*qi3*THK**3*HK*,»4-315*qi3*THK**5*HK**2)+ 
q23*(210*qi6*THK**3*HK**4-315*qi6*THK**5*HK**2)- 
315*qi3*qi6*THK**6*HK)/THK**6/315.0 
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P10  *  (320*Q26**2*HKP1**7-672*Q26**2*THK**2*HKP1**5- 
420*Q16*Q26*THK**3*HKP1**4+420*Q26**2*THK**4* 
HKP1>*3+630*Q16*Q26*THK**5+HKP1**2+315*Q16**2* 
THK**6*HKP1+Q26**2*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+Q16*Q26*(420*THK**3*HK**4- 
630VTHK**5*HK**2)-315*qi6**2*THK**6*HK)/THK**6/315.0 

PHI  «  (HKP1**2*(315*Q11*QH23*THK**5+315*Q21*QH13*THK**5)+ 
HKPl**4*(-210*qil*QH23*THK**3-210*Q21*QH13*THK**3)+ 
320*Q21*QH23*HKP1**7-672*Q21*QH23*THK**2*HKP1**5+ 
420*Q21*QH23*THK**4*HKP1**3+315*Q11*QH13*THK**6* 
HKPl+QH23*(q21*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3/+210*qil*THK**3*HK**4-315*qil* 
THK**5*HK**2)+q21*(210*qH13*THK**3*HK**4- 
315*qH13*THK**5*HK**2)-315*qil*qH13*THK**6*HK)/ 
THK**6/315.0 

PH2  =»  (HKPl**2*(315*qi2*qH23*THK**5+315*qH13*q22*THK**5)+ 
HKPl**4*(-210*qi2*qH23*THK**3-210*qH13*q22*THK**3)+ 
320*q22*qH23*HKPl**7-672*q22*qH23*THK**2*HKPl**S+ 
420*q22*qH23*THK**4*HKPl**3+315*qi2*qH13*THK**6* 
HKPl+qH23* (q22* (-320*HK**7+672*THK**2*HK**S- 
420*THK**4*HK**3)+210*qi2*THK**3*HK**4-315*qi2* 
THK**5*HK**2)+q22*(210*qH13*THK**3*HK**4- 
315*qH13*THK**S*HK**2)-315*qi2*qH13*THK**6*HK)/ 
THK**6/315.0 

PH3  *  (HKPl**2*(315*qHll*q23*THK**S+315*qi3*qH21*THK**5)+ 
HKPl**4*(-210*qHll*q23*THK**3-210*Q13*qH21*THK**3)+ 
320*q23*qH21*HKPl**7-672*q23*qH21*THK**2*HKPl**5+ 
420*q23*qH21*THK**4*HKPl**3+315*qi3*qHll*THK**6* 
HKPl+qH21*(q23*(~320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+210*qi3*THK**3*HK**4-315*qi3* 
THK**5*HK**2)+q23*(210*qHll*THK**3*HK**4- 
315*qHn*THK**5*HK**2)-315*qi3*qHll*THK**6*HK)/ 
THK**6/315.0 

PH4  *  (HKPl**2*(31S*qH12*q23*THK**5+315*qi3*qH22*THK**5)+ 
HKPl**4*(-210*qH12*q23*THK**3-210*qi3*qH22*THK**3)+ 
320*q23*qH22*HKPl**7-S72»q23*qH22*THK**2*HKPl**5+ 
420*q23*qH22*THK**4*HKPl«*3+315*qi3*qH12*THK**6* 
HKPl+qH22* (q23* (-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)+210*qi3*THK**3*HK**4-315*qi3* 
THK**5*HK**2)+Q23*(210*qH12*THK**3*HK**4- 
315*qH12*THK**5*HK**2)-315*qi3*qHi2*THK**6*HK)/ 
THX**6/315.0 

PK5  =  (HKPl**2*(31S*qH13+q23*THK**5+3l5*qi3*qH23*THK**5)+ 


» 


» 
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HKP1**^*(”210*QH13*Q23*THK**3-210*Q13*QH23*THK**3)+ 

320*Q23*qH23*HKPl**7-672*Q23*QH23*THK**2*HKPl**5+ 

420*Q23*QH23*THK**4*HKP1**3+315*Q13*QH13*THK**6*. 

HKP1+QH23*(Q23*(-320*HK**7+672*THK**2*HK**5- 

420*THK**4*HK**3)+210*Q13*THK**3*HK**4-315*Q13* 

THK**5*HK**2) +Q23* (2iO*QH13*THK**3*HK**4- 

31S*QH13*THK**5*HK**2)-31S*Q13*QH13*THK**6*HK)/ 

THK**6/315.0 

PH6  *  (HKPl**2*(315*qH16*023*THK**5+315*Q13«=QH26*THK**5)+ 
HKPl**4*(-210*qH16*q23*THK**3-210*qi3*qH26*THK**3)+ 
320*q23*qH26*HKPl**7-672*q23*QH26*THK**2*HKPl**5+ 
420*q23*qH26*THK**4*HKPl**3+315*qi3*qH16*THK**6* 
HKPl+qH26*(q23*(-320*HK**7+672*THK**2*HK**5- 
420*THK**4*HK**3)*210*qi3*THK**3*HK**4-315*qi3* 
THK**5*HK**2)+q23*(210*qH16*THK**3*HK**4- 
315*qH16*THK**5*HK**2)-315+qi3*qH16*THK**6*HK)/ 
THK**6/31S.O 

PH7  *  (HKPl**2*(315*QH13*q26*THK**5+315*qi6*qH23*THK**5)+ 
HKPl**4*(-210*qH13*q26*THK**3-210*qi6-»qH23*THK**3)+ 
320*q26*qH23*HKPl**7-672*q26*qH23*THK**2*HKPl**5+ 
420*q26*qH23*THK**4*HKPl**3+315*qi6*qHi3*THK**6* 
HKPl+qH23* (q26* (-320*HK**7+672*THK**2*HK*a5- 
420*THK**4*HK**3)+210*Q16*THK**3*HK**4-315*qi6* 
THK**5*HK**2)+q26*(210*qH13*THK**3*HK**4- 
315*qH13*THK**5*HK**2)-315*qi6*qH13*THK**6*HK)/ 
THK**6/315.0 

ABAR(1,1)  =  ABAR(l.l)  +  ZOI  *  Cl(l.l.K)  +  PI  +  S33(K) 

ABAR(1 ,2)  *  ABAR(1 ,2)  ♦  ZOI  *  C1(1,2,X)  +  P2  *  S33(K) 

ABAR(1 ,3)  *  ABAR(1 ,3)  +  P3  *  S33(K) 

ABAR(1 ,6)  *  ABAR(1 ,6)  +  ZOI  *  C1(1,6,K)  ♦  P4  *  S33(K) 

ABARC2.2)  *  ABAR(2,2)  +  ZOI  *  C1(2,2,K)  +  P5  *  S33(K) 

ABAR(2,3)  *  ABAR(2,3)  ♦  P6  *  S33(K) 

ABAR(2,6)  =  ABARC2.6)  ♦  ZOI  *  C1(2,6,K)  +  P7  *  S33(K) 

ABAR(3,3)  =  A8AR(3,3)  +  P8  *  S33(K) 

ABAR(3,6)  =  ABAR(3,6)  +  P9  *  S33(K) 

ABAR(6,6)  =  ABAR(6,6)  +  ZOI  *  C1(6,6,K)  +  PIO*  S33(K) 


pgi  *  zoi  *  qn  *  QHii  +  fint  *  (qHit  *  q2i  +  qn  *  qH2i) 

♦  FINT2  *  qH21  *  q21 

PG2  «  ZOI  *  qil  *  qH12  +  FINT  *  (qH12  *  q21  ♦  qil  *  qH22) 

+  FINT2  *  qH22  *  q21 

PG3  a  ZOI  *  qn  *  qH13  +  FINT  *  (qH13  *  q2l  +  qil  *  qH23) 

♦  FINT2  *  qH23  *  q21 

PG4  a  ZOI  *  qil  *  qH16  +  FINT  *  (qH16  *  q2i  ♦  qil  ♦  qH26) 

+  FINT2  *  qH26  *  q2l 
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PG5  *  ZOI  *  Q12  *  QHil  +  TINT  *  (QH11  *  Q22  +  Q12  *  QH21) 

+  FINT2  *  QH21  *  Q22 

PG6  *  ZOI  *  Q12  *  QH12  +  FINT  *  (QH12  *  Q22  ♦  Q12  *  QH22) 

+  FINT2  *  QH22  *  Q22 

PG7  «  ZOI  *  Q12  *  QH13  ♦  FINT  *  (QH13  *  Q22  ♦  Q12  *  QH23) 

+  FINT2  *  QH23  *  Q22 

PG8  ■  ZOI  *  Qi2  *  QH16  +  FINT  *  (QH16  *  Q22  ♦  Q12  *  QH26) 

4  FINT2  *  QH26  *  Q22 

PG9  »  ZOI  *  Q13  *  QH11  ♦  FINT  *  (QH11  *  Q23  +  Q13  *  QK21) 

+  FINT2  *  QH21  *  Q23 

PGIO*  ZOI  *  Q13  *  QH12  +  FINT  *  (QH12  *  Q23  ♦  Q13  *  QH22) 

4  FINT2  *  QH22  *  Q23 

PG11*  ZOI  *  Q13  *  QH13  +  FINT  *  (QH13  *  Q23  +  Q13  *  QH23) 

♦  FINT2  *  qH23  *  Q23 

PG12a  ZOI  *  Q13  *  qH16  ♦  FINT  *  (qH16  *  q23  ♦  qi3  *  qH26) 

4  FINT2  *  qH26  *  q23 

PG13*  zoi  *  qi6  *  qHii  ♦  fint  *  (qsn  *  q26  +  qi6  *  qH2i) 

4  FINT2  *  qH21  *  q26 

PGi4=  zoi  *  qi6  *  qni2  4  fint  *  (qHi2  *  q26  +  qi6  *  qH22) 

+  FINT2  *  qH22  *  q26 

PG15*  ZOI  *  qi6  *  qH13  ♦  FINT  *  (0H13  *  q26  ♦  qi6  *  qH23) 

+  FINT2  *  qH23  *  q26 

PG16=  ZOI  *  qi6  *  qH16  4  FINT  *  (qH16  *  q26  4  qi6  *  qH26) 

4  FINT2  *  qH26  *  q26 

BBAR(1 ,3)  =  BBAR(1 ,3)  4  SCALE  *  PG3  *  S33(K) 

BBAR(2,3)  *  BBAR(2,3)  4  SCALE  *  PG7  *  S33(K) 

BBAR(3,1)  *  BBAR(3f 1)  ♦  PG9  *  S33(K) 

BBAR(3 ,2)  *  BBAR(3,2)  4  PGIO  *  S33(K) 

BBAR(3,3)  *  BBAR(3 ,3)  4  SCALE  *  PG11  *  S33(K) 

BBAR(3,6)  *  BBAR(3,6)  4  PG12  *  S33(K) 

BBAR(6,3)  »  BBAR(6,3)  4  SCALE  *  PG15  *  S33(K) 

BBAR(1,1)  *  BBAR(1 , 1)  ♦  Z1I  *  C1(1,1,K)  4  PG1  *  S33(K) 

BBAR(1 ,2)  =  BBAR(1 ,2)  4  Z1I  *  C1(1,2,K)  4  PG2  *  S33(K) 

BBARd ,6)  *  BBARC1.6)  4  Z1I  *  Cl(l,6,K)  ♦  PG4  *  S33(K) 

BBAR(2, 1)  *  BBAR(2,1)  ♦  Z1I  *  C1(1,2»K)  4  PG5  *  S33(K) 

BBAR(2,2)  =  BBAR(2,2)  4  Z1I  *  C1(2,2,K)  4  PG6  *  S33(K) 

BBARC2.6)  x  BBAR(2,6)  4  Z1I  *  C1(2,6,X)  4  PG8  *  S33(K) 

BBAR(6,1)  *  BBARC6.1)  *  Z1J  *  Cl(l,6,K)  4  PG13*  S33(K) 

BBAR(6,2)  »  BBAR(6,2)  4  Z1I*  C1(2,6,K)  4  PG14*  S33(K) 

BBAR(6,6)  x  BBAR(6,6)  4  Z1I  *  C1(6,6,K)  4  PG16*  S33(K) 

PF1  *  ZOI  *  qHll**2  4  2.0  *  FINT  *  OKU  *  qH21  * 

FINT2  *  qH21**2 

PF2  *  ZOI  *  qHU  *  qH12  4  FINT  *  (qHll  *  QH22  4  qH21  *  qH12) 

4  FINT2  *  QH21  *  qH22 


PF3  *  ZOI  *  QH11  *  QH13  +  PINT  *  (QH21  *  QH13  +  QH11  *  QK23) 

♦  FINT2  *  QH21  *  QH23 

PF4  »  ZOI  *  QH11  *  QH16  +  FINT  *  (QH11  *  QH26  ♦  QH21  *  QH16) 

<  FIMT2  *  QH21  *  QH26 

PF5  *  ZOI  *  QH12**2  +  2.0  *  FINT  *  QH12  *  QH22  + 

FINT2  *  QH22**2 

PF6  ■  ZOI  *  QH12  *  qH13  ♦  FINT  *  (QH12  *  QH23  +  QH22  *  QH13) 

♦  FINT2  *  qH22  *  qH23 

PF7  *  ZOI  *  qH12  *  qH16  +  FINT  *  CQH12  *  qH26  +  qH22  *  qH16) 

+  FINT2  *  qH22  *  qH26 

PI’8  »  ZOI  *  qH13**2  ♦  2.0  *  FINT  *  qH13  *  qH23  + 

FINT2  *  qH23**2 

PF9  =  ZOI  *  qH13  *  qH16  ♦  FINT  *  (qH13  *  qH26  +  qH23  *  qH16) 

♦  FINT2  *  qH23  *  qH26 

PF10=  ZOI  *  qH16**2  +  2.0  *  FINT  *  qH16  *  q«26  ♦ 

FINT2  *  qH26**2 

DBAR(l.l)  *  DBAR(l.l)  ♦  Z2I  *  ClCl.l.K)  +  PF1  *  S33(K) 

DBAR(1 ,2)  *  DBAR(1 ,2)  +  Z2I  *  C1(1,2,K)  +  PF2  *  S33(K) 

DBARCl ,3)  *  DBARC1.3)  +  SCALE  *  PF3  *  S33(K) 

DBARd.6)  =  DBARd.6)  +  Z2I  *  C1(1,6,K)  ♦  PF4  *  S33(K) 

DBAR(2,2)  «  DBAR(2,2)  +  Z2I  *  C1(2,2,K)  +  PF5  *  S33(K) 

DBAR(2,3)  =  DBARC2.3)  +  SCALE  *  PF6  *  S33(K) 

DBARC2.6)  =  DBAR(2,6)  +  Z2I  *  Cl(2,6,K)  +  PF7  *  S33(K) 

DBAR(3,3)  *  DBAR(3,3)  +  SCALE**2  *  PF8  *  S33(K) 

DBAR(3,6)  *  DBAR(3,6)  ♦  SCALE  *  PF9  *  S33(K) 

DBAR(6,6)  *  DBAR(6 ,6)  +  Z2I  *  C1(6,6,K)  +  PF10*  S33(K) 

INT[P2BAR]DZ 

P2B2I  *  (AK**4)*(9.*(HKP1**5-HK**5)-30.*HL**2*(HKP1**3- 
HK**3) +45 . *HL**4* (HKP1-HK) ) / (20 . *HL**4) 

GHAT(1,1)  *  GKAT(l.l)  ♦  C(4,4,X)  *  P2B2I 

GMAT(1 ,2)  ■  GHAT(1,2)  +  C(4,5,K)  *  P2B2I 

GHAT(2,2)  «  GMAT(2,2)  +  C(5,5,K)  *  P2B2I 

GMAT(2, 1)  =  GMAT(1.2) 


ABAR(2,1)  *  ABAR(1,2) 

ABAft(3,i)  »  ABAR(1,3) 

A3AR<3,2)  *  ABAR(2,3) 

ABAR(6,1)  *  ABARU.6) 

ABAR(6,2)  *  ABAR(2,6) 

ABAR(6,3)  =  ABAR(3,6) 

DBAR(2,i)  «  DBAR(1,2) 

DBAR(3, 1)  «  DBAR(1 ,3) 

DBAR(3,2)  *  DBAR(2,3) 

DBAR(6,1)  *  DBARC1.6) 

DBARC6.2)  «  DBAR(2,6) 

DBAR(6 ,3)  *  DBAR(3,6) 

END  IF 

APPLY  CORRECTION  FACTORS  TO  LAMINATE  MATRICES 

ACSHR  *  PI**2/10.0 

ACTHK  *  PI/SQRTC12.0) 

ACHMD  »  PI*SQRT( 17. 0/252.0) 

DO  I  =  1,  6 

ABARCI ,3)  *  ABARCI.3)  *  ACTHK 
ABAR(3,I)  =  ABAR(3,I)  *  ACTHK 
BBAR(3,I)  *<  BBAR(3,I)  *  ACTHK 
BBAR(1 ,3)  =  BBARCI.3)  *  ACHMD 
DBAR(3,I)  »  DBAR'3,1)  *  ACHMD 
DBAR(I,3)  «  DBAR(I,3)  *  ACHMD 

END  DO 

DO  I  «  1,  2 
DO  J  =  1,  2 

GMAT(I,J)  =  GMATCI.J)  *  ACSHR 
END  DO 

END  DO 

REORDER  STORAGE  OF  A,  B  AND  D  MATRICES  FOR  CALLING  PROGRAM 

DO  I  *  1,  4 
DO  J  »  I,  4 
N  »  I 

M  a  J 

IF  (  I  .EQ.  4  )  N  a  6 
IF  (  J  .EQ.  4  )  M  =  6 
AMAT(I,J)  *  ABAR(N.M) 

AMAT(J.I)  =  ABAR(N,M) 

BMAT(I.J)  =  BBAR(N.M) 

BMAT( J ,1)  =  BBAR(M,N) 


i 


DMAT(I.J)  *  DBAR(N,M) 
DMAT(J,I)  =  DBAR(N,M) 
END  DO 
END  DO 

RETURN 

END 


C***********************. ************* 

c  * 

SUBROUTINE  UINTPT  (  XI,  X2,  X3,  WEIGHT,  KORD,  I  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

C************************************ 

c 

IF  (KORD  .Eq.  1)  THEN 
XI  '  *  l.ODO  /  3.0D0 

X2  =  l.ODO  /  3.0D0 

WEIGHT  =1.0 

ELSE  IF  (KORD  .Eq.  3)  THEN 
IF  (I  .Eq.  1)  THEN 
XI  =  l.ODO  /  2.0D0 

X2  =  l.ODO  /  2.0D0 

WEIGHT  =  l.ODO  /  3.0D0 

ELSE  IF  (I  .Eq.  2)  THEN 
XI  =  O.ODO 

X2  *  l.ODO  /  2.0D0 

WEIGHT  =  l.ODO  /  3.0D0 

ELSE  IF  (I  .Eq.  3)  THEN 
XI  =  l.ODO  /  2.0D0 

X2  =  O.ODO 

WEIGHT  =  l.ODO  /  3.0D0 

END  IF 

ELSE  IF  (KORD  .Eq.  4)  THEN 
IF  (I  .Eq.  1)  THEN 
XI  =  l.ODO  /  3.0D0 

X2  =  l.ODO  /  3.0D0 

WEIGHT  =  -27.0D0  /  48.0D0 
ELSE  IF  (I  .Eq.  2)  THEN 
XI  =  0.6D0 

X2  =  0.2D0 

WEIGHT  =  25.0D0  /  48.0D0 
ELSE  IF  (I  .Eq.  3)  THEN 
XI  ■  0.2D0 

X2  ,  «  0.6D0 

WEIGHT  =  25.0D0  /  48.0D0 
ELSE  IF  (I  .Eq.  4)  THEN 
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XI  *  0.2D0 
X2  »  0.2b0 
.  WEIGHT  «  25.0D0  /  48.0D0 
END  IF 

ELSE  IF  (KORD  .EQ.  7)  THEN 
IF  (I  .EQ.  1)  THEN 
XI  ■  l.ODO  /  3.0D0 
X2  »  l.ODO  /  3.0D0 
WEIGHT  *  0.225D0 
ELSE  IF  (I  .EQ.  2)  THEN 
XI  =  0.0597 1587 17D0 
X2  =  0.4701420641D0 
WEIGHT  =  0. 1323941527D0 
ELSE  IF  (I  .EQ.  3)  THEN 
XI  *  0.470142064 IDO 
X2  *  0.0597 1587 17D0 
WEIGHT  »  0. 1323941527D0 
ELSE  IF  (I  .EQ.  4)  THEN 
XI  *  0.4701420641DO 
X2  *  0.4701420641D0 
WEIGHT  *  0. 1323941527D0 
ELSE  IF  (I  .EQ.  5)  THEN 
XI  *  0.7974269853D0 
X2  *  0 . 1012865073D0 
WEIGHT  *  0 . 1259391805D0 
ELSE  IF  (I  .EQ.  6)  THEN 
XI  *  0 . 1012865Q73D0 
X2  *  0 . 7974269853D0 
WEIGHT  *  0. 125939 1805D0 
ELSE  IF  (I  .EQ.  7)  THEN 
XI  »  0. 1012865073D0 
X2  =  0. 1012865073D0 
WEIGHT  =  0. 125939 1805D0 
END  IF 

END  IF 
C 

X3  *  1.  -  XI  -  X2 
C 

RETURN 


C************************************ 


c  * 

SUBROUTINE  UIGSS(NORD,KCEE, CEE, WEIGHT)  * 
C  * 
C  GAUSS  POINTS  FOR  NUMERICAL  QUADRATURE  OF  A  * 
C  SQUARE  AREA  * 
C  * 


i 


» 


§ 


» 


» 


» 


60 


» 


•i 


i 


IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z)  * 

* 

*********************************** 

IF  (  NORD  .EQ.  2  )  THEN 

WEIGHT  »  1.000 

CEE  -  0.577350269189626 

IF  (  KCEE  .EQ.  2  )  CEE  *  -.577350269189626 

ELSE  IF  (  NORD  .EQ.  3  )  THEN 

IF  (  KCEE  .Eq.  1  )  THEN 
CEE  =  0.774596669241483 
WC  =  0.555555555555556 
ELSE  IF  (  KCEE  .EQ.  2  )  THEN 
CEE  «  0.000000000000000 
WC  ■  0.888888888888889 
ELSE  IF  (  KCEE  .EQ.  3  )  THEN 
CEE  *  -.774596669241483 
WC  =  0.555555555555556 
END  IF 
WEIGHT  ■  WC 

ELSE  IF  (  NORD  .Eq.  4  )  THEN 

IF  (  KCEE  .EQ.  1  )  THEN 
CEE  =  0.861136311594053 
WC  *  0.347854845137454 
ELSE  IF  (  KCEE  -EQ.  2  )  THEN 
CEE  *  0.339981043584856 
WC  =  0.652145154862546 
ELSE  IF  (  KCEE  .EQ.  3  )  THEN 
CEE  *  -.339981043584856 
WC  «  0.652145154862546 
ELSE  IF  (  KCEE  .Eq.  4  )  THEN 
CEE  *  -.861136311594053 
WC  ■  0.347854845137454 
END  IF 
WEIGHT  =  WC 

ELSE  IF  (  NORD  .EQ.  5  )  THEN 


IF  (  KCEE  .EQ.  1  )  THEN 
CEE  »  0.906179845938664 
WC  *  0.236926885056189 
ELSE  IF  (  KCEE  .EQ.  2  )  THEN 
CEE  a  0.538469310105683 
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WC  *  0.478628670499366 
ELSE  IF  (  KCEE  .EQ.  3  )  THEN 
CEE  »  0.000000000000000 
WC  ■  0.568888838888889 
ELSE  IF  (  KCEE  .EQ.  4  )  THEN 
CEE  »  -.S38469310105683 
WC  *  0.478628670499366 
ELSE  IF  (  KCEE  .EQ.  5  )  THEN 
CEE  »  -.906179845938664 
WC  =  0.236926885056189 
END  IF 
WEIGHT  »  WC 
C 

ELSE  IF  (  NORD  .EQ.  6  )  THEN 
C 

IF  (  KCEE  .Eq.  1  )  THEN 
CEE  *  0.932469514203152 
WC  a  0.171324492379170 
ELSE  IF  (  KCEE  .Eq.  2  )  THEN 
CEE  «  0.661209386466265 
WC  =  0.360761573048139 
ELSE  IF  (  KCEE  .Eq.  3  )  THEN 
CEE  =  0.238619186C8L197 
WC  *  0.467913934572691 
ELSE  IF  (  KCEE  .Eq.  4  )  THEN 
CEE  »  -.238619186083197 
WC  a  0.467913934572691 
ELSE  IF  (  KCEE  .Eq.  5  )  THEN 
CEE  a  -.661209386466265 
WC  a  0.360761573048139 
ELSE  IF  (  KCEE  .Eq.  6  )  THEN 
CEE  a  -.932469514203152 
WC  a  0.171324492379170 
END  IF 
WEIGHT  =  WC 
C 

END  IF 
C 

RETURN 

END 

C 


c  * 

SUBROUTINE  UHOTCD  (  ELTSTF ,  ELTLOD  )  * 
C  * 
C  STATC  PERF0RME5  STATIC  CONDENSATION  OF  THE  H0T3  * 
C  ELEMENT  STIFFNESS  MATRIX  AND  LOAD  VECTOR  ■> 
C  * 


> 


> 


> 


> 


► 


> 


I 


> 


) 


> 
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IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

DIMENSION  ELTSTF(17,17),  ELTL0D(17)  * 

C  * 


C******************«***************** 

c 

DO  M  3  1,  2 
I  3  18  -  M 

P  «  1.0  /  ELTSTF(I.I) 

DO  J  -  1,  I 

ELTSTF(I.J)  3  P  *  ELTSTF(I.J) 

END  DO 

ELTLOD(I)  3  P  *  ELTLOD(I) 

DO  K  3  1,  1-1 
DO  J  3  1,  1-1 

ELTSTF(K.J)  3  ELTSTF(K.J)  -  ELTSTF(K.I)  *  ELTSTF(I.J) 

END  DO 

ELTLOD(K)  3  ELTLOD(K)  -  ELTSTF(K.I)  *  ELTLOD(I) 

END  DO 
END  DO 
C 

RETURN 

END 

C 

C************************************ 


C  * 

SUBROUTINE  UHOTIO(ELTSTF,  ELTLOD,  C.  LFLAGS ,  Z.  DU.  ENERGY.  A.  B.  * 
k  PSI,  PSU,  AMAT,  BMAT,  DMAT,  GMAT,  RELAX,  NLAY ,  * 

k  NOTYPE .  NOUT,  NELID,  STRN,  ETRN,  TRI,  NSYS,  * 

k  NMAT,  MLVARX  )  * 

C  * 

C  THIS  ROUTINE  COMPUTES  ELEMENT  OUTPUT  DATA  FOR  THE  H0T3  * 

C  HIGHER  ORDER  PLATE  ELEMENT.  THIS  ROUTINE  SUPPORTS  LAYER  * 

C  OUTPUT  REQUESTS  FOR  COMPOSITE  MATERIALS.  * 

C  (  * 

C  NMAT  3  HIGHER-ORDER  THEORY  SELECTION  FLAG;  *  * 

C  3  1  FOR  STRAIN-BASED  * 

C  3  2  FOR  STRESS-BASED  (VER  I)  * 

C  3  3  FOR  STRESS-BASED  (VER  II)  * 

C  * 

C  OUTPUT  OPTIONS  DEFINED  BY  NOTYPE  ARE:  '  * 

C  * 

C  NOTYPE  3  0  SUPPRESS  ALL  ELEMENT  OUTPUT  * 

C  3  1  OUTPUT  LAYER  STRESSES  AT  USER  SELECTED  * 

C  NUMBER  OF  THICKNESS  COORDINATES  AND  * 

C  ELEMENT  FORCES  * 

C  3  2  OUTPUT  ELEMENT  STIFFNESS  MATRIX  AND  * 

C  CONSISTENT  LOAD  VECTOR  ONLY  * 
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c  «  3  OUTPUT  ELEMENT  LAYER  STRESSES,  STRAINS  AND  * 

C  INCLUDE  STIFFNESS  MATRIX  AND  LOAD  VECTOR  * 

C  * 

C  NSYS  =  1  TO  OUTPUT  ELEMENT  DATA  IN  GLOBAL  COORDINATE  SYSTEM  * 
C  *  2  TO  OUTPUT  ELEMENT  DATA  IN  LOCAL  COORDINATE  SYSTEM  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

REAL*8  KAPXO,  KAPYO ,  KAPZO,  KAPXYO  * 

C  * 

DIMENSION  ELTSTF(17,17),  ELTLOD(17),  C(6,6,12S),  LFLAGS(S) ,  * 

*  Z(126) ,  U(18) ,  ENERGY (8) ,  A(3),  B(3),  PSI(3),  * 

k  PSU(3) ,  RHS(18),  DU(MLVARX)  * 

DIMENSION  BMTRX(10,17) ,  EVEC(6),  SVEC(6),  STRAIN(IO),  XML(3),  * 

k  XMM(3) ,  UL(17) ,  ELTFOR(15) ,  AMAT(4,4),  BMAT(4,4),  * 

ft  DMAT(4,4),  GMAT(2,2) ,  RES(18),  STRN(6,6),  ETRN(6,6),  * 

k  TRIO, 3),  TMP1(3),  0EVC(6) ,  OSVC(6)  * 

C  * 

LOGICAL  PHASE1  * 

C  * 

DATA  NSTART  /  0  /  * 

DATA  EPS  /  1.0D-20  /  * 

C  * 


C************************************ 

c 

IF  (  HOTYPE  .LE.  0  )  RETURN 
C 

C  TEST  IF  ABAQUS  IS  IN  THE  ELEMENT  DATA 

C  RECOVERY  PHASE  BY  CHECKING  DISPLACEMENTS 

C 

PHASE1  =  .TRUE. 

C 

DO  I  *  1,  18 

IF  (  DABS(DUCI))  .GT.  EPS  )  PHASE1  =  .FALSE. 

END  DO 

9 

c 

IF  (  PHASE1  )  RETURN 
C 

PI  =  ACOS(-l.ODO) 

C 

DO  I  =  1,  18 
U(I)  *  DU(I) 

END  DO 

CALL  DGMTRN  (  U,  6,  UL,  3,  3,  5  ) 

C 

DO  I  *  16,  17 
UL(I)  =  ELTLOD(I) 

DO  J  *  1 ,  1-1 


ft 


» 


» 


» 


» 


i 


» 


> 
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ULCI)  ■  UL(I)  -  ELTSTFd,  J)  *  UL(J) 

END  DO 
END  DO 
C 

IF  (  NSYS  .EQ.  2  )  THEN 

CALL  DSCPY  (  O.DO,  TRI,  3,  3) 

CALL  DSCPY  (  O.DO,  ETRN,  6,  6) 

CALL  DSCPY  (  O.DO,  STRN,  6,  6) 

DO  I  -  1,  6 

IF  (  I  .LE.  3  )  TRI(I,I)  *  1.0 
ETRN(I ,1)  =  1.0 
STRN(I,I)  =1.0 
END  DO 
END  IF 
C 

C  W.lITE  HEADER  TO  ABAQUS  OUTPUT  FILE 
C 

Ii'  (  NSTART  .Eq.  0  )  THEN 
vraTE(6,iooi) 

IF  (  NSYS  .Eq.  1  )  WRITE(6,2001) 

IF  (  NSYS  .EQ.  2  )  WRITE (6, 2002) 

NSTART  =  1 
END  IF 
C 

WRITE (6, 1002)  NELID,  UL(16),  UL(17) 

C 

IF  (  NOTYPE  .Eq.  2  .OR.  NOTYPE  .Eq.  3  )  THEN 
C 

C  ELEMENT  STIFFNESS  MATRIX  AND  LOAD  VECTOR 

C  IS  OUTPUT  IN  LOCAL  COORDINATES 

C 

WRITE(6,2003) 

WRITE(6, 1003)  (N,N=1,10) 

C 

DO  I  ■  J,  15 

WRITE (6 , 1004)  I ,  (ELTSTFd ,  J) ,  J=1 , 10) 
END  DO 
C 

WRITE(6,1005)  (N,N=11,15) 

C 

DO  I  *  1,  15 

WRITE (6 , 1004)  I ,  (ELTSTFd ,  J)  ,  J=1 1 , 15) 
END  DO 
C 

WRITE(6.1006) 

C 

DO  I  =  1,  15 

WRITE(6, 1007)  I.ELTLQD(I) 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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ft 


i 


t 


END  DO 


I 


C 

C 


c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 


c 

c 

c 

c 


c 


c 


c 


HRITE(6, 1008) 

IF  (  NOTYPE  .EQ.  2  )  RETURN 
END  IF 


COMPUTE  ELEMENT  STRESSES,  STRAINS  AND  DISPLACEMENTS 
THROUGH  THE  THICKNESS 


XI  «  PSU(l) 
X2  »  PSU(2) 
X3  =  PSU(3) 


XML(l) 

3 

B(3) 

/ 

2.0 

* 

XI 

* 

X2 

- 

B  (2) 

/ 

2.0 

* 

XI 

* 

X3 

XML (2) 

7Z 

B(l) 

/ 

2.0 

* 

X2 

* 

X3 

- 

B(3) 

/ 

2.0 

* 

XI 

* 

X2 

XML (3) 

3 

-BCl) 

/ 

2.0 

* 

X2 

* 

X3 

+ 

B(2) 

/ 

2.0 

* 

XI 

* 

X3 

XMM(l) 

3 

A(2) 

/ 

2.0 

* 

XI 

X3 

- 

A(3) 

/ 

2.0 

* 

XI 

* 

X2 

XMM(2) 

3 

-A(l) 

/ 

2.0 

* 

X2 

* 

X3 

+ 

AC3) 

/ 

2.0 

* 

XI 

* 

X2 

XMM(3) 

3 

A(l) 

/ 

2.0 

* 

X2 

* 

X3 

- 

A(2) 

/ 

2.0 

* 

XI 

* 

X3 

FORM  CONSTANTS  TO  ENFORCE  ZERO  SHEAR  BOUNDARY 
CONDITION  AT  THE  TOP  AND  BGTTOM  SURFACES 


THICK  =  Z(NLAY-H)  -  7(1) 

HALF  *  THICK  /  2.C 

/  C(3,3,NLAY) 
/  C(3,3,NLAY) 
/  C(3,3,NLAY) 
/  C(3,3,NLAY) 
/  C(3,3,NLAY) 
/  C(3 ,3,NLAY) 


R13  *  C(l,3,l)  /  C(3,3,l)  -  Ca,3,NLAY) 
R23  *  C(2,3, 1)  /  C(3,3,l)  -  C(2,3,NLAY) 
R36  *  CC3.6.1)  /  C(3,3,l)  -  C(3,6,NLAY) 
S13  «  C(1 ,3, 1)  /  C(3,3,l)  +  C(1,3,NLAY) 
S23  *  C(2,3,l)  /  C(3,3,l)  +  C(2,3,NLAY) 
S36  *  C(3,6, 1)  /  C(3,3,l)  +  C(3,6,NLAY) 


COMPUTE  WEIGTED  AVERAGE  DISPLACEMENTS  AND 
ROTATIONS  AT  SPECIFIED  RECOVERY  POINT 


UO  -  PSU(1)*UL(1)  +  PSU(2)*UL(2)  +  PSU(3)*UL(3) 

VO  =  PSU(1)*UL(4)  +  PSU(2)*UL(5)  +  PSU(3)*UL(6) 

WO  =»  PSU(l)*UL(7)  +  PSU(2)*UL(8)  +  PSU(3)*UL(9)  + 

It  XML(1)*UL(10)  +  XML(2)*UL(U)  +  XML(3)*UL(12)  ♦ 

t  XMM(1)*UL(13)  +  XMM(2)*ULv’14)  +  XMM(3)*UL(lS) 


TX  *  PSU(1)*UL(10)  PSU(2)*UL(11)  +  PSU(3)*UL(12) 

TY  *  PSU(1)*UL(13)  +  PSU(2)*UL(14)  +  PSU(3)*UL(1S) 


I 


» 


I 


» 


» 


» 


» 


» 
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• 

C  COMPUTE  STRAIN-DISPLACEMENT  MATRIX  AT  SPECIFIED 

C  RECOVERY  POINT  FOR  STRESSES 

C 

CALL  UHOTBX  (  BMTRX ,  A,  B,  PSI(l),  PSI(2) ,  PSI(3),  THICK.)  t 

CALL  DMMUL  (  BMTRX,  UL,  STRAIN  ,10,  17,  1  ) 

C 

EPSXO  *  STRAIN (  1) 

EPSYO  «  STRAIN (  2) 

EPSZO  •  STRAIN (  3)  , 

GAMXYO  «  STRAIN (  4) 

KAPXO  «  STRAIN (  5) 

KAPYO  *  STRAIN (  6) 

KAPZO  *  STRAIN (  7) 

KAPXYO  *  STRAIN (  8) 

GAMYZO  *  STRAIN (  9)  * 

GAMXZO  *  STRAIN (10) 

C 

C  APPLY  APPROPRIATE  CORRECTION  FACTORS  TO  TRANSVERSE  QUANTITIES 
C 

GAMXZO  =  GAMXZO  *  PI/SQRT(10.0)  • 

GAM’iZO  -  GAMYZO  *  PI/SQRT(10.0) 

EPSZO  *  EPSZO  *  PI/SQRTU2.0) 

KAPZO  *  KAPZO  *  PI*SqRT(17. 0/252.0) 

C 

C  COMPUTE  DISPLAC-^ENTS,  STRESSES  AND  STRAINS  THROUGH  » 

C  THE  ELEMENT  THIC  ESS 
C 

WRITE(6, 1009) 

C 

IF  (  NOUT  .LE.  1  )  THEN 
LOUT  *  1 

ZBEG  =  0.0 

ZINC  ■  0.0 

ELSE 

LOUT  *  NOUT 

ZBEG  *  -  HALF  * 

ZINC  *  THICK  /  (  LOUT  -  1  ) 

END  IF 
C 

IF  (  NMAT  .NE.  1  )  THEN 

C  » 

C  COMPUTE  CONSTANTS  REQUIRED  IN  STRESS-BASED  THEORY 

C 

CALL  UMTSV2C  C,  Z,  NLAY,  THICK,  Qll,  Q12,  Q13,  Q16,  Q21,  Q22, 

1  Q23,  q26,  QH11,  QH12,  QH13,  QH16,  QH21,  QH22, 

2  QH23,  QH26  )  t 

C 

END  IF 
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» 


c 

DO  IL  *  1,  LOUT 

C 

ZL  »  ZBEG  +  (  IL  -  1  )  *  ZINC 
C 

DO  Ia  1,  NLAY 

IF  (  ZL  .GE.  Z(I)  )  NPL  =  I 
END  DO 
C 

PO  «  1.0 
PI  «  ZL  /  HALF 

P2  «  0.5  *  (3.*(ZL/HALF)**2  -  1.0) 

P3  «  0.5  *  (ZL/HALF)  *  (5.*(ZL/HALF)**2  -  3.0) 

FI  *  Pi  -  Pl**3  /  3.0 
C 

PHI  *  -(HALF/510. )*(S13  *  (42.  *  P3  +  3.  *  PI)  -85.  *  P2  *  R13) 

PH2  «  -(HALF/510. )*(S23  *  (42.  *  P3  +  3.  *  PI)  -85.  *  P2  *  R23) 

PH6  *  -(HALF/510. )*(S36  *  (42.  *  P3  +  3.  *  PI)  -85.  *  P2  *  R36) 

PH3  *  42. DO  /  85. DO  *  (6.  *  PI  -  P3  ) 

PHT  *  5. DO  /  6. DO  *  (  PO  -  P2  ) 

C 

C  COMPUTATION  OF  DISPLACEMENTS: 

C 

UXX  *  UO  ♦  ZL  *  TY 
UYY  *  VO  «•  ZL  *  TX 

UZZ  =*  WO  +  PI  *  UL(16)  +  (  .20  ♦  P2  )  *  UL(17) 

C 

OUX  *  UXX*TAI(1,1)  +  UYY*TRI(2,1)  ♦  UZZ*TRI(3, 1) 

OUY  «  UXX*TRI(1 ,2)  ♦  UYY*TRI(2,2)  ♦  UZZ*TRI(3,2) 

OUZ  »  UXX*TRI(1 ,3)  +  UYY*TRI(2,3)  +  UZZ*TRI(3,3) 

C  COMPUTATION  OF  STRAINS: 

C 

EPSXX  *  EPSXO  +  ZL  *  KAPXO 

EPSYY  *  EPSYO  +  ZL  *  KAPYO 

EPSZZ  «  EPSZO  +  KAPZO  *  PH3  +  KAPXO  *  PHI  + 

k  KAPYO  *  PH2  ♦  KAPXYO  *  PHG 

GAMXY  *  GAMXYO  ♦  ZL  *  KAPXYO 
GAMXZ  »  PHT  *  GAMXZO 
GAMYZ  »  PHT  *  GAMYZO 
C’ 

C  COMPUTATION  OF  STRESSES: 

C 

EVEC(l)  *  EPSXX 
EVEC(2)  *  EPSYY 
EVEC(3)  *  EPSZZ 
EVEC(4)  *  GAMYZ 
EVEC(5)  *  GAMXZ 


i 


B 


B 


B 


B 


B 
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EVEC(6)  *"  GAMXY 

CALL  DMMUL  (  CCl.l.NPL),  EVEC,  SVEC,  6,  6,  1  ) 

IF  (  NMAT  .NE.  1  )  THEN 

RECOMPUTE  EPSZZ  AND  SIGZZ  USING  STRESS-BASED  THEORY 

SIGZZ  «  (  qil  +  FI  *  Q21  )  *  EPSXO 

+  (  Q12  ♦  FI  *  Q22  )  *  EPSYO 

+  (  Q13  +  FI  *  Q23  )  *  EPSZO 

♦  (  Q16  +  FI  *  Q26  )  *  GAMXYO 

+  (  QH11  ♦  FI  *  QH21  )  *  KAPXO 

.  +  (  QH12  +  FI  *  QH22  )  *  KAPYO 

♦  (  QH13  +  FI  *  QH23  )  *  KAPZO 

+  (  QH16  +  FI  *  QH26  )  *  KAPXYO 

EPSZZ  »  (  SIGZZ  -  C(l ,3,NPL)  *  EPSXX  -  C(2,3,NPL)  *  EPSYY  - 
C(3,6,NPL)  *  GAMXY  )  /  C(3,3,NPL) 

EVEC(3)  *  EPSZZ 
SVEC(3)  =  SIGZZ 

END  IF 

TRANSFORM  STRESSES  AND  STRAINS  TO  SELECTED  OUTPUT  COORDINATES 

CALL  DMATBC  STRN,  EVEC,  OEVC,  6,  6,  1  ) 

CALL  DMATBC  ETRN,  SVEC,  OSVC,  6,  6,  1  ) 

WRITE(6, 1010)  ZL , OUX , OUY , OUZ , (  OEVC(K) ,K*1 ,6) , 

(  OSVC(L) ,L=1 ,6) 


END  DO 


COMPUTE  RESULTANTS 


CALL  DSCPY  (  O.DO,  RES,  18,  1) 

DO  I  «  1,  10 

IF  (  I  .LE.  3  )  THEN 
DO  J  *  1,  4 

RES(I)  =  RES(I)  +  AMAT(I , J)*STRAIN(J)  + 
t  BMATCI , J)*STRAIN( J+4) 

END  DO 

ELSE  IF  (  I  .EQ,  4  )  THEN 
DO  J  *  1,  4 

RES(6)  =*  RES (6)  +  AMAT(I , J)*STRAIN(J)  ♦ 
l  BMATCI, J)*STRAIN( J+4) 

END  DO 


t 


» 


ELSE  IF  (  I  .GT.  4  .AND.  I  .LE.  7  )  THEN 
DO  J  *  1,  4 

RESCI+2)  =  RESCI+2)  +  BMAT(J,I-4)*STRAIN(J)  + 

A  DMAT(I-4,J)*STRAIN(J+4) 

END  DO 

ELSE  IF  (  I  -EQ.  8  )  THEN 
DQ  J  *  1,  4 

RESC12)  *  RESC12)  +  BMAT(J,I-4)*STRAIN(J)  * 
ft  DMAT(I-4, J)*STRAIN(J+4) 

END  DO 

ELSE  IF  (  I  .GT.  8  )  THEN 
DO  J  »  1,  2 

RESCI+7)  =  R£S(I+7)  ♦  RELAX*GMAT(I-8, J)*STRAIN(11-J) 

END  DO 
END  IF 
END  DO 
C 

DO  I  *  1,  3 

CALL  DSTRN  (  RES(6*I-5),  EVEC,  6  ) 

CALL  DMATB  (  ETRN,  EVEC,  RES(6*I-5),  6.  6,  1  ) 

END  DO 

IF  (  LOUT  .GT.  1  )  THEN 

IF  (NSYS  .EQ.  1)  WRITE(6,2011)  (RES(K) ,K=1,12) , (RES(J) , J-16,18) 
IF  (NSYS  .EQ.  2)  WRITE(6,10il)  (RES(K) ,K31 ,  3) ,(RES(J) , J=6  .  9), 
ft  RES(12),RES(16),RES(17) 

END  IF 

C 

C  COMPUTE  ELEMENT  GRID  POINT  FORCES,  {?>  =  [K]{U> 

C 

CALL  DGMMUL  (  ELTSTF ,  17,  UL,  17,  ELTFOR,  15,  15,  15,  1  ) 

CALL  DSCPY  (  O.DO,  RHS,  18,  1) 

CALL  DGMTRN  (  ELTFOR,  3,  RHS,  6,  5,  3  ) 

C 

DO  I  =  1,  3 
N1  *  1*6-5 
N2  =*  Nl+2 
N3  *  N2+1 
N4  *  N3+2 
NC  ■  0 

DO  J  3  Nl,  N2 
NC  «  NC  ♦  1 
TMPl(NC)  *  RHS(J) 

END  DO 

CALL  DMATB(TRI ,TMP1 ,RHS(N1) ,3,3,1) 

NC  *  0 

DO  J  »  N3,  N4 
NC  »  NC  +  1 
TMPi(NC)  3  RHS(J)  • 


» 


t 


» 


» 


» 


» 
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END  DO 
C 

C  TOGGLE  SIGN  ON  MX  DUE  TO  SIGN  CONVENTION  OF  THETA  X 

C 

TMPl(i)  «  -TMPi(l) 

CALL  DMATB(TRI ,TMP1 ,RHS(N3) ,3,3,1) 

RHS(N3)  «  -RHS(N3) 

END  DO 
C 

WRITE(6, 1012) 

C 

DO  I  ■  1,  3 

WRITEC6 , 1013)  I , (RHS(J) , J=I*6-5 ,1*6) 

END  DO 


C 

C  COMPUTE  ELEMENT  ELASTIC  STRAIN  ENERGY,  E  *  0.5  {U>CKEE]{U> 
C 

CALL  DMATB  <  UL,  ELTFOR,  STNE,  1,  15,  1  ) 

C 

STNE  *  0.5  *  STNE 

ENERGY (2)  *  STNE 

WRITE(6, 1014)  STNE 
C 

CALL  DSCPY  (  0 . DO ,  RHS ,  18,  1) 


1001  FORMATC///,  30X,’H  0  T  ELEMENT  DATA  ’,//) 

1002  FORMAT(//  ,»  ELEMENT  ID:  ’,15,//, 

*  ’  HIGHER  ORDER  AUXILIARY  FUNCTIONS:  ’,/, 

k  ’HI  *  ’  ,E9.3, ’  W2  »  ’ ,E9.3,/) 

1003  FORMATC/  ,  45X,’H0T3  STIFFNESS  MATRIX: ’,/, 10111) 

1004  FORMATC  I4,2X,10(E9.3,2X)) 

1005  FORMATC//  ,  5111) 

1006  FORMATC//  ,  40X,’HQT3  CONSISTENT  LOAD  VECTOR:’,/) 

1007  FORMATC  44X.I5.2X.E9.3) 

1008  FORMATC//  ) 

1009  FORMATC/  ,’  H0T3  DISPLACEMENTS,  STRAINS  AND  STRESSES’ 

k  ,’  THROUGH  ELEMENT  THICKNESS: ’,/// ,51X 

It  , ’XX’ ,9X, ’YY’ ,9X, ’ZZ’ ,9X, ’YZ’ ,9X, ’XZ’ ,9X, ’XY? ,/ 

Jt  ,  ’  Z  UX  UY  UZ  ' 

k  ,  3C’  EPS/SIG? ) ,3C ’  GAM/TAU’)) 

,  10D11 .3,/ ,44X,6D11 .3) 


1010  FORMATC/ 


1011  FORMATC/ 

,’  FORCE  AND  MOMENT 

RESULTANTS:’,// 

k 

,’  NX  *  ’ ,D9.3, ’ 

NY 

=  ’  ,D9.3, ’ 

NZ  » 

’ ,D9.3 

k 

,’  NXY  *  ’ ,D9.3,/ 

k 

,’  MX  »  ’ ,D9.3, ’ 

MY 

“  ’ ,D9.3,  ’ 

MZ  = 

’ ,D9.3 

k 

,’  MXY  «  ’ ,D9.3,/ 

4. 

,’  QX  *  ’ ,D9.3, ’ 

QY 

=  ’ ,D9.3,/) 

2011  FORMATC/ 

,’  FORCE  AND  MOMENT 

RESULTANTS: ’ ,// 

I 


» 


» 


> 


» 


> 


i 
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t  ,’  NX  =  ’,09.3,’  NY  =»  \D9.3,’  NZ  *  ’,D9.3 

k  ,’  NYZ  *  * ,D9.3, ’  NZX  3  * ,D9.3, *  NXY=’,D9.3,/ 

k  ,’  MX  *  ’  ,D9.3,  ’  MY  *  ’,D9.3,’  MZ  «  \D9.3 

*  , '  MYZ  »  \D9.3,’  MZX  *  *,D9.3,’  HXY  »  ‘,09.3,/ 

k  ,*  Q  X  «  ’  ,D9.3,  ’  QY  *  ’,D9.3,*  QZ  »  ’,D9.3/) 

1012  FORMAT (/  ,’  ELEMENT  FORCES’,// 

k  ,’  NODE* ,4X, ’Rl’ ,9X, ’R2’ ,9X, ’R3* ,9X, *R4* ,9X, ’R5’ 

k  ,  9X, *R6* ,/) 

1013  FORMAT (  I5,2X,6(E9.3,2X)) 

1014  FORMAT (/  ELEMENT  STRAIN  ENERGY  =  ’.E9.3) 

2001  FORMAT (25X, ’  ELEMENT  DATA  IN  GLOBAL  COORDINATE  SYSTEM’,//) 

2002  FORMAT (25X, ’  ELEMENT  DATA  IN  LOCAL  COORDINATE  SYSTEM’,//) 

2003  FORMAT (23X, ’  (ELEMENT  [K]  k  {R}  ARE  IN  LOCAL  COORDINATES)’,//) 

C 

RETURN 

END 

C 

C**************  ********  ************** 


c  * 

SUBROUTINE  UMTSV2(  C,  NLAY,  THKNS ,  Qll,  Q12,  Q13,  Q16,  Q21,  Q22,  * 

1  q23,  Q26,  QKll,  QH12,  QH13,  QH16,  qH21,  qH22,  * 

2  qH23,  qH26  )  * 

C  * 

C  THIS  ROUTINE  COMPUTES  CONSTANTS  REqUIRED  FOR  TRANSVERSE  NORMAL  * 

C  STRAIN  AND  STRESS  COMPUTATION  IN  STRESS-BASED  TESSLER  THEORY  * 

C  * 

IMPLICIT  REAL+8  (A-H.O-Z)  * 

C  * 

DIMENSION  C(6,6,125) ,  Z(126),  S33(125)  * 

C  * 


C****  ******************************** 

C 

C  INITIALIZE  VARIABLES 
C 

511  =  0.0 

512  =  0.0 
S22  *  0.0 
Til  =  0.0 
T12  =  0.0 
T16  =  0.0 
T13  »  0.0 
TH11  *  0.0 
TH12  =  0.0 
TH16  *  0.0 
TH13  *  0.0 
T21  *  0.0 
T22  *  0.0 
T26  *  0.0 
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T23  =  0.0 

TH21*  *  0.0 
TH22  «  0.0 
TH26  »  0.0 
TH23  -  0.0 
C 

C  COMPUTE  WEIGHTED-AVERAGE  TERMS 
C 

HL  *  THKNS  /  2.0 
C 

DO  100  K  *  1,  NLAY 
C 

HK  *  Z(K) 

HKP1  *  Z(K+1) 

C 

ZOI  *  HKP1  -  HK 
Z1I  *  (HKPl**2  -  HK**2)  /  2.0 
C 

C  INTEGRAL  OF  FI  *  PSI-PSI**3/3  ACROSS  PLY  THICKNESS 

C 

FINT  *  -(HKP1-HK)*(HKP1+HK)*(-3*THKNS**2+2*KKP1**2+2*HR:<*2)/ 

1  THKNS* *3/3.0 

** 

C  INTEGRAL  OF  FI**2  *  (PSI-PSI**3/3)**2  ACROSS  PLY  THICKNESS 

C 

FINT2  =(320*HKP1**7-672*THKNS**2*HKP1**5+420*THKNS**4*HKP1**3- 

1  320*HK**7+672*THKNS**2*HK**5-420*THKNS**4*HK**3) / 

2  THKNS**6/315.0 
C 

C  INTEGRAL  OF  Z*FI  ACROSS  PLY  THICKNESS 

C 

ZFINT  *  -(8*HKP1**5-10*THKNS**2*HKP1**3-8*HK**5+ 

1  10*THKNS**2*HK**3)/THKNS**3/1S . 0 

C 

S33(X)  *  1.0  /  C(3,3,K) 

C 

511  »  Sll  +  ZOI  *  S33(K)**2 

512  »  S12  *  FINT  *  S33(K)**2 
S22  =  S22  ♦  FINT2  *  S33(K)**2 

C 

Til  *  Til  +  ZOI  *  C(l ,3,K)  *  S33(K)**2 
T12  «  T12  +  ZOI  *  C(2,3,K)  *  S33(K)**2 
T16  »  T16  ♦  ZOI  *  C(3,6,K)  *  S33(K)**2 
T13  «  T13  ♦  ZOI  *  S33(K) 

C 

T21  *  T21  ♦  FINT  *  C(1,3,K)  *  S33(K)**2 
T22  *  T22  ♦  FINT  *  C(2t3,K)  *  S33(K)**2 
T26  =  T26  ♦  FINT  *  C(3,6,K)  *  S33(K)**2 


9 


t 
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9 


9 


9 


9 


9 


9 
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T23  «  T23  +  FINT  *  S33(K) 

C 

THil  »  THU  +  Z1I  *  C(1,3,K)  *  S33(K)**2 

TH12  «  TH12  ♦  Z1I  *  C(2,3,K)  *  S33(K)**2 

THIS  »  THIS  +  Z1I  *  C(3,6,K)  *  S33(K)**2 

TH13  »  TH13  +  2.0  *  Z1I  *  S33(K) 

C 

TH21  »  TH21  +  ZFINT  *  C(1,3,K)*  S33(K)**2 

TH22  »  TH22  +  ZFINT  *  C(2,3,K)*  S33(K)**2 

TH26  «  TH26  +  ZFINT  *  C(3,6,K)*  S33(K)**2 

TH23  «  TH23  +  2.0  *  ZFINT  *  S33(K) 

C 

100  CONTINUE 
C 

C  AVERAGE  COEFFICIENTS 
C 

RU  *  S22  /  (S11*S22  -  S12**2) 

R22  *  Sll  /  (SU*S22  -  S12**2) 

R12  *  -S12  /  (SU+S22  -  S12**2) 

C 

QU  =  RU  *  TU  +  R12  *  T21 

Q21  *  R12  *  TU  +  R22  *  T21 

Q12  =  RU  *  T12  +  R12  *  T22 

q22  »  R12  *  T12  +  R22  *  T22 

Q13  a  R11  *  T13  ♦  R12  *  T23 

Q23  a  R12  *  T13  +  R22  *  T23 

qi6  «  RU  *  T16  +  R12  *  T26 

q26  a  R12  *  T16  +  R22  *  T26 

C 

qHU  a  RU  *  THU  +  R12  *  TH21 

qH21  *  R12  *  THU  +  R22  *  TH21 

qH12  a  RU  *  TH12  +  R12  *  TH22 

qH22  *  R12  *  TH12  +  R22  *  TH22 

qH16  a  RU  *  TH16  +  R12  *  TH26 

qH26  »  R12  *  TH16  ♦  R22  *  TH26 

qH13  »  RU  *  TH13  ♦  R12  *  TH23 

qH23  *  R12  *  TH13  +  R22  *  TH23 

C 

RETURN 

END 

C 


c  * 

SUBROUTINE  UMTCMXC  EU,E22,E33,V12,V23,V13,G12,G23,G31,FIB,C  )  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 


DIMENSION 


D(6,6) ,  T(6,6) ,  TD(6,6) ,  C(6,6) 


* 


l 


> 


» 


I 


» 


§ 
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ft 


c  * 

c************************************ 

c 


c 


CALL  UMTDMX 
CALL  UMTTMX 
CALL  DMHUL 
CALL  DHABT 


(  D,  Ell,  E22,  E33,  V12,  V23,  Y13,  G12,  G23,  G31  ) 
(  T,  FIB) 

(  T,  D,  TD,  6,  6,  6) 

(  TD,  T,  C,  6,  6,  6) 


RETURN 

END 


C 

C  *  * 

C 

c 

c 

c 

c 

c 

c  *  * 

c 

c 


********************************** 

* 

SUBROUTINE  UMTDMX  (  D,  El,  E2,  E3,  V12,  V23,  V13,  G12,  G23,  G31  )  * 

* 

COMPUTE  FULL  ELASTIC  D-MATRIX  * 

* 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

* 

DIMENSION  D(6,6)  * 

* 

********************************** 

CALL  DSCPY  (  O.DO,  D,  6,  6  ) 

V21  =  V12  *  E2  /  El 

V32  *  V23  *  E3  /  E2 

V31  *  V13  *  E3  /  El 


C 


FACTOR  a  1.  /  (  1.0  -  V12  *  V21  -  V13  *  V31  -  V23  *  V32 
ft  -  V12  *  V23  *  V31  -  V21  *  V13  *  V32  ) 


D ( 1 , 1 )  =  FACTOR  *  El  *  (  1.0  -  V23  *  V32  ) 
D(2,2)  »  FACTOR  *  E2  *  (  1.0  -  V13  *  V31  ) 
D(3,3)  *  FACTOR  *  E3  *  (  1.0  -  V12  *  V21  ) 
D(1 ,2)  a  FACTOR  *  E2  *  (  V12  +  V13  *  V32  ) 
D(1 ,3)  a  FACTOR  *  E3  *  (  V13  ♦  V12  *  V23  ) 
D(2,3)  *  FACTOR  *  E3  *  (  V23  +  V21  *  V13  ) 
D<2,1)  =  D(1 ,2) 

D(3,l)  a  0(1,3) 

D(3,2)  »  0(2,3) 

D(4,4)  «  G23 
D(5,S)  »  G31 
D(6,6)  «  G12 


RETURN 

END 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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c************************************ 


SUBROUTINE  UMTTMX  (  T,  FIB  )  * 

C  * 

C  FORM  T-MATRIX  * 

C  * 

IMPLICIT  REAL*8  (A-H.O-Z)  * 

C  * 

DIMENSION  T(6,6)  * 

C  * 


C************************************ 

c 

ANG  *  FIB  *  ACOS(-l.ODO)  /  180. 

C  »  COS (ANG) 

S  »  SIN (ANG) 

C 

CALL  DSCPY  (  O.DO,  T,  6,  6  ) 

C 

T(1 ,1)  »  C  *  C 
T(l,2)  *  S  *  S 
T(l,6)  »  -2.  *  S  *  C 
T(2,l)  »  S  *  S 
T(2,2)  »  C  *  C 
T(2,6)  »  2.  *  S  *  C 
T(3,3)  »  1.0 
T(6,l)  »  S  *  C 
T(6,2)  =  -S  *  C 
T(6,6)  *  C  *  C  -  S  *'S 
T(5,5)  »  C 
T(5,4)  *  -S 
T(4,5)  *  s 
T(4.4)  «  C 
C 

RETURN 

END 

C 

C**************  ********************** 


c  * 

c  [A]  x  [B]  =  [C]  * 

C  * 

SUBROUTINE  DGMMUL  (  DA,  LDA,  DB,  LDB,  DC,  LDC,  IRA,  IRB,  ICB  )* 
C  * 

IMPLICIT  INTEGER*4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  0-Z  )  * 

C  * 

DIMENSION  DA(LDA.l),  DB(LDB,1) ,  DC(LDC,1)  * 

C  * 


C************************************ 

c 
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DO  1=1, IRA 
DO  K=1 ,ICB 
DS  =  O.OD+OO 
DO  J=1,IRB 

DS  =  DS  +  DA(I , J)  *  DB(J,K) 

END  DO 

DC(I,K)  =  DS 
END  DO 
END  DO 

n 

V 

RETURN 

END 

C 

C***  ********************************* 


C  T  * 

C  [A]  x  CB]  =  [C]  * 

C  * 

SUBROUTINE  DGMATB  (  DA,  LDA,  DB,  LDB,  DC,  LDC,  IRA,  IRB,  ICB  )* 
C  * 

IMPLICIT  INTEGER+4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-K  ,  O-Z  )  * 

C  * 

DIMENSION  DA(LDA,1),  DB(LDB,1),  DC(LDC,1)  * 

C  * 


C************************************ 

c 

DO  1=1. IRA 
DO  K^l.ICB 

DS  =  O.OD+OO 
DO  J=1 ,IRB 

DS  =  DS  +  DA(J,I)  *  DB(J,K) 

END  DO 

DC(I,K)  *  DS 
END  DO 
END  DO 
C 

RETURN 

END 

/« 

U 

c****************** ****************** 


C  T  * 

C  [A]  — >  [C]  * 

c  * 

SUBROUTINE  DGMTRN  (  DA,  LDA,  DC,  LDC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGER+4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 


» 


» 


» 


» 


» 


I 


I 


* 


» 
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DIMENSION  DA(LDA,1) ,  DC(LDC,i)  * 

C  * 

C********************  '>««******»*****» 

c 

DO  J*1,ICC 
DO  1*1, IRC 

DC(I, J)  *  DA(J.I) 

END  DO 
END  DO 
C 

RETURN 

END 

C************************************ 


C  T  * 

C  [A]  x  [B]  =  [C]  * 

C  * 

SUBROUTINE  DMABT  (  DA,  DB,  DC,  IRA,  IRB,  ICB  )  * 

C  * 

IMPLICIT  INTEGERS  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DACIRA.1),  D8(ICB,1)..  DC(IRA.l)  * 

C  * 


C***************  1,1  ******************** 

c 

DO  1*1, IRA 
DO  K*1,ICB 

DS  *  O.OD+OO 
DO  J*1,IRB 

DS  *  DS  +  DA(I , J)  *  DB(K, J) 

END  DO 

DC(I,K)  *  DS 
END  DO 
END  DO 
C 

RETURN 

END 

C 

C***************’*  *>******************* 


c  * 

C  [A]  +  [B]  *  [Cl  * 

C  * 

SUBROUTINE  DMADD  (  DA,  DB,  DC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGEP.*4  (  I-N  )  * 

IMPLICIT  REAL *8  (  A-H  ,  O-Z  )  * 

C  * 

C  * 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


78 


ft 


•  ’•(  i 


DIMENSION 


DA(1) s  DB(1) ,  DCCl) 


* 


C  * 

C*******  ***************************** 

c 

DO  I*  1,  IRC  *  ICC 

DC(I)  «  DA(I)  +  DB(I) 

END  DO 
C 

RETURN 

END 

C 

C****************«******************* 


c  * 

C  [A]  +  S  x  [B]  =  [C]  * 

C  * 

SUBROUTINE  DMASB  (  DA.  DS.  DB.  DC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGERS  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DA(1) ,  DB(l),  DC(1)  * 

C  * 


C********4*************************** 

c 

DO  I~  1,  IRC  *  ICC 

DCCI)  =  DA(I)  ♦  DS  *  DE(I) 

END  DO 
C 

RETURN 

END 

C 

C************************************ 


C  T  * 

C  [A]  x  [B]  =  [C]  * 

C  * 

SUBROUTINE  DMATB  (  DA,  DB,  DC,  IRA,  IRE,  ICB  )  * 

C  * 

IMPLICIT  INTEGERS  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DA(IRB,1),  DB(IRB.l),  DC(IRA,1)  * 

C  * 


Q*************v  ********************** 

c 

DO  1*1, IRA 
DO  K*1 , iCB 

DS  *  O.OD+OO 
DO  J*1 ,IRB 


I 


DS  *  DS  ♦  DA(J,X)  *  DB(J,K) 

END  DO 

DC(I,K)  *  DS 
END  DO 
END  DO 
C 

RETURN 

END 

C 

£************************************ 


c  * 

C  CA]  x  [B]  =  CC]  * 

C  * 

SUBROUTINE  DMMUL  (  DA,  DB,  DC,  IRA,  IRB,  ICB  )  * 

C 

IMPLICIT  INTEGER*4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DA(IRA,1),  DB(IRB.l),  DC(ZRA.l)  * 

C  * 


C************************************ 

c 

DO  1*1, IRA 
DO  K-l.ICB 
DS  «  O.OD+OO 
DO  J-l.IRB 

DS  ■  DS  ♦  DACI.J)  *  DB(J,K) 

F.ND  DO 

DCCI.K)  *  DS 
END  DO 
END  DO 
C 

RETURN 

END 

C 

C************************************ 


C  T  * 

C  CA]  —  >  [C]  * 

C  * 

SUBROUTINE  DMTRN  (  DA,  DC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGERS  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  t  » 

•  DIMENSION  DA(ICC,1),  DC(IRC.l)  * 

C  * 


C**************»?*********«*****«**** 

C 


II 


I 


I 


* 


I 


I 


I 


SO 


’l 


I 


DA(J.I) 


C 


DC  J*1,ICC 
DO  1*1, IRC 
DC(I,J) 
END  DO 
END  DO 


RETURN 

END 


C 

C*********^**  <i  *********************** 


c  * 

C  S  — >  [C]  * 

c  * 

SUBROUTINE  DSCPY  (  DS,  DC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGER*4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DC(1)  * 

C  * 


C**  *******************  *************** 


c 

DO  I-  1,  IRC  *  ICC 
DC(I)  *  DS 
END  DO 
C 

RETURN 

END 

C 

C************************************ 


c  * 

c  Si  [A]  *  [C]  * 

C  * 

SUBROUTINE  DSMUL  (  DS,  DA,  DC,  IRC,  ICC  )  * 

C  * 

IMPLICIT  INTEGER*4  (  I-N  )  * 

IMPLICIT  REAL*6  (  A-H  ,  0-Z  )  * 

C  * 

D:  MENSION  DA(1) ,  DC(1)  * 

C  * 


C**«*  ****************  **************** 

c 

DO  I*  1,  IRC  *  ICC 
DCCI)  «  DS  *  BA(I) 

END  DO 
C 

RETURN 

END 


•  ft 


» 


i 


ft 


» 


ft 


ft 


ft 


ft 


81 


ft 


c 

c************************************ 


c  * 

C  [A]  *  Cc]  * 

c  * 

SUBROUTINE  DSTRN  (  DA,  DC,  IRC  )  * 

C  * 

IMPLICIT  INTEGER*4  (  I-N  )  * 

IMPLICIT  REAL*8  (  A-H  ,  O-Z  )  * 

C  * 

DIMENSION  DA(t) ,  DC(1)  * 

J  * 


£************************«*********** 

c 

DO  I*  1,  IRC 
DC(I)  *  DA(I) 

END  DO 
C 

RETURN  . 

END 


ABAQUS  INPUT  DECK 


•HEADING 

USER  ELEMENT  H0T3  TEST  CASE;  CYLINDRICAL  PLATE  BENDING 
•PREPRINT, ECHO- YES 
•NODE 

1,0.0,  0.0,  0.0 

2,0.3333,0.0,  0.0 

3,0.6667,0.0,  0.0 

4,1.0,  0.0,  0.0 

5,0.0,  0.3333,0.0 

6,0.3333,0.3333,0.0 
7,0.6667,0.3333,0.0 
8,  1.0,  0.3333,0.0 

** 

•USER  ELEMENT, NODES-3, TYPE-U1, PROPERTIES-72, COORDINATES-3 

1,2, 3, 4, 5, 6 

•  * 

•ELSET, ELSET-N1 
•ELSET, ELSET-N2 
•ELSET, ELSET-N3 
•ELSET, ELSET-N4 
•ELSET, ELSET-N5 
•ELSET, ELSET-N6 
•  « 

•UEL  PROPERTY, ELSET-N1 
3.0,0.0,1.000, .8660,1.000,1.0, 13.0,1.0 
2S.0D6, 1.0D6, 1.0D6,0.5Df,0.2D6,0.5D6 
0.25,0.25,0.25,0.025,30.0 
2S.0D6,1.0D6,1.0D6,0.5D6,0.2D6,0.5D6 
0.25,0.25,0.25,0.05,-30.0 
25.0D6, 1.0D6,1.0D6,0.5D6,0.2D6,0.5D6 
0.25,0.25,0.25,0.025,30.0 
0.333, 0.333, 0.333, 1.0, 0.0,0  0 
1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0  0.0 
•UEL  PROPERTY, ELSET-N2 
3.0,0.0,1.000,0.8660,0.86(0.1.0.13.0,1.0 
25.0D6, 1.0D6.1. 0D6, 0.506,0. 2!'6.0.SD6 
0.25,0.25,0.25,0.025,30.0 
25.0D6.1.0D6, 1 .0D6, 0.5D6,  0 -2D6. 0 .5D6 
0. 25, 0.2S, 0.25, 0.05, -30.0 
25. 0D6.1.0D6, 1.0D6.0. 506,0.206.0.506 
0.25,0.25,0.25,0.025,30.0 
0.333,0.333,0.333,1.0,0.0,0.0 
1.0, 1.0, 1.0, 0.0,0. 0,0. 0,1  \3.0 
•UEL  PROPERTY, ELSET-N3 
3.0,0.0,0.866,0.500,0.866,1.0, 13.0,1.0 
2S.0D6,1.0D6, 1.006,0. 5D6.0. 206,0. 5D6 
0.25,0.25,0.25,0.025.30.0 
2S.0D6, 1.006,1. 0D6,  0.506,0. 2D6.0.5D6 
0.25,0.25,0.25,0.05,-30.0 
2S.0D6, 1.006, 1.0D6,  0.506, 0.206.0. 506 
C.25. 0.25, 0.25, 0.025, 30.0 
0.333,0.333,0.333,1.0,0.0,0.0 
1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0,0. 0 
•UEL  PROPERTY, ELSET-N4 
3.0,0.0,0.866,0.500,0.500,1.0, 13.0. 1.0 
25. 006. 1.006,1.006,  0.5D6. 0.206.0.SD6 
0.25.0.25,0.25,0.025,30.0 
25.006, 1 .006, 1 . 006. 0.506, 0.206, 0 . 5  36 
0.25, 0.25, 0.25,0. OS, -30.0 
25.006,1.006, 1.006,0.506,0.206,0.506 
0.25,0.25,0.25.0.025.30.0 
0.333,0.333.0.333,1.0,0.0.0.0 
1.0, 1.0, 1.0, 0.0, 0.0,0. 0,1. 0,0.0 
•UEL  PROPERTY,  ELSET --N5 
3.0,0.0,0.500.0.000,0.500, 1.0, 13.0,1.0 
25. 006, 1.006,1. 0D6, 0.506,0. 206, 0.SD6 
0.25,0.25,0.25,0.025,30.0 
25.006. 1.006,1.006,0.506.0.206,0.506 
0.25,0.25,0.25,0.05,-30.0 
25.006,  1.006, 1.006,0. 506,0. 206, 0.5D6 
0.25.0.25,0.25,0.025,30.0 
0.233.0.333,0.333,  1.0,0. C.O.C 
1.0,1. 5,1.0. 0.0, 0.0, 0.0. 1. 0,0.0 
•UEL  PROPERTY, ELSET-N6 

3. C.C. 0.0. 500,0. 000, C.00C.1.L. 13.0,1.0 

25. 006.1. 006, l.ODt,  C.5D6,C.2D6.C.5D6 

C. 25.0.25.0.25.0.025,30.0 

25.006, l.ODt, 1.0D6.C. 506, 0. 206, C.jOf 

0,25, C.25  C.2e  0.05  -30  0 

25,006,  1 .006.  1  '.ODcIc  ,30t.  0 .206,  l .  iDt 

0.25,0.25.0.25.0.075,30.0 

C. 333, 0.333, 0.333. 1 .0,1. 0,0.0 

i.c, i.c,  i.c. c.c. c.c. o.c. : .o.c. r 

** 

•ELEMENT,  TYPH'J:.  ELSE!  *N.  ?.54 


1,1,  6, 5 

•ELEMENT, TYPE"Ul, ELSET-N2 

2, 1,2, 6 

•ELEMENT, TYP£*U1, ELSET-N3 

3. 2. 7. 6 

•ELEMENT, TYPE-U1, ELSET-N4 
4, 2, 3,  7 

•ELEMENT, TYPE-U1,  EI.SET-N5 

5. 3. 3. 7 

•ELEMENT, TYPE-U1, ELSET-N6 
6,  3,  4,  8 
*« 

•USER  SUBROUTINE, INPUT«uel_hot3 . f 

•  * 

•BOUNDARY 

1,1,2 

1.4.6 

2,2,2 

2.6.6 

3.2.2 

3.6.6 

4.2.3 

4.6.6 
5,  1,2 

5.4.6 

6,2,2 

6.6.6 

7.2.2 

7.6.6 

8.2.3 

8.6.6 

** 

••  INPUT  EQUATIONS  TO  SIMULATE 
**  CYLINDRICAL  BENDING 

** 

•EQUATION 

2 

5, 3, 1.0, 1,3, -1.0 
2 

6, 1,1.0, 2,1, -1.0 

2 

6, 3, 1.0, 2, 3, -1.0 
2 

6,4, 1.0, 2, 4, -1.0 
2 

6, S, 1.0, 2, 5, -1.0 
2 

7, 1,1. 0,3,1, -1.0 
2 

7, 3, 1.0, 3, 3, -1.0 
2 

7, 4, 1.0, 3, 4, -1.0 
2 

7, 5, 1.0, 3,5, -1.0 
2 

8, 1,1. 0,4,1, -1.0 

2 

3, 4, 1.0. 4, 4, -1.0 
2 

8, S, 1.0, 4, 5, -1.0 

»* 

•STEP, PERTURBATION 
•STATIC 
•NODE  PRINT 
U 

•END  STEP 


ABAQUS  OUTPUT  FILE 
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A 

A 
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A 

A 

Q 
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u 

u 

A 

A 

BBBBBBBBB 

A 

A 
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uuuuuuuu 
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THIS  PROGRAM  HAS  BEEN  DEVELOPED  BY 


HIBBITT,  KARLSSON  AND  SORENSEN,  INC. 

1080  MAIN  STREET 
PAWTUCKET,  R.I.  02860 

THIS  IS  A  PROPRIETARY  PROGRAM.  IT  MAY  ONLY  BE 
USED  UNDER  THE  TERMS  OF  THE  LICENSE  AGREEMENT 
BETWEEN  HIBBITT,  KARLSSON  t  SORENSEN,  INC. 

AND  ARMY  RESEARCH  LABORATORY. 

ON  MACHINE  0X080009411654, 

YOU  ARE  AUTHORIZED  TC  RUN 
STANDARD  AND  POST  UNTIL  12/31/93 

YOUR  SITE  ID  IS:  ARMY  RESEARCH 
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s 
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> 


I 


» 


FOR  ASSISTANCE  OR  ANY  OTHER  INFORMATION  CALL 

401-727-4200  (PAWTUCKET,  RHODE  ISLAND) 
OR 

510-794-5891  (NEWARK,  CALIFORNIA) 


*  NOTICE  * 


THIS  IS  ABAQUS  VERSION  5.2. 


PLEASE  MAKE  SURE  YOU  ARE  USING  VERSION  5.2  MANUALS 
PLUS  THF  NOTES  ACCOMPANYING  THIS  RELEASE.  THESE  NOTES 
CAN  BE  OBTAINED  BY  USING  THE  INFORMATION  OPTION  ON  THE 
ABAQUS  COMMAND  LINE 


I 


» 


ABACUS 


NPUT  ECHO 


If  1.-  2f  2!  if  35 


50  55  60  65  70  75  8C 


» 


•HEADING 

USE!-  ELEMENT  KC7  '  TEST 
•PREPRINT, ECHO- YEL 
•NOD! 


CY_INDi<:CA.  PLATE  BENDING 


IASL; 


CARD 


> 


10 


CARD  15 


CAPO  20 


CARD  25 


CARD  30 


CARD  35 


CARD  40 


CARD  45 


CARD  SO 


CARD  55 


CARD  SO 


CARD  65 


CARD  70 


CARD  75 


CARD  80 


card  es 


CARD  90 


CARD  95 


CARD  : 00 


2,0.3333,0.0,  0.0 

3,0. 6667, O.Q,  0.0 
4,1.0,  0.0,  0.0 

5,0.0,  0.3333,0.0 

6,0.3333,0.3333,0.0 
7,0.6667,0.3333,  0.0 
8,1.0,  0.3333,0.0 

*  * 

•USER  ELEMENT, NODES-3, TYPE-U1, PROPERTIES-72,  COORDINATES-3 

1.2. 3. 4. 5. 6 

** 

•ELSET, ELSET-N 1 
•ELSET, ELSET«N2 
•ELSET, ELSET-N3 
•ELSET, £LSET“N4 
•ELSET, ELSET-N5 
•ELSET, ELSET-N6 
•  * 

•UEL  PROPERTY,  ELSET-N1 
3.0,0.0,1.000, .8660,1.000,1.0,13.0, 1.0 
25.006, 1.0D6, 1.0D6,0.5D6,0. 2D6.0.5D6 
0.25,0.25,0.25,C. 025, 30.0 
25.0D6, 1.0D6, 1.0D6, 0.5D6,0.2D6,0. SD6 
0.25,0.25,0.25,0.05, -30.0 
25. 0D6, 1.0D6, 1.0D6, 0.5D6,0. 2D6.0.5D6 
0.25,0.25,0.25,0.025,30.0 
0.333,0.333,0.333, 1.0, 0.0, 0.0 
1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0, 0.0 
•UEL  PROPERTY, ELSET-N2 

3. 0,0.0, 1.000,0.8660,0.8660,1.0, 13.0,1.0 
2S.0D6, 1.0D6, 1.006,0. 5DS, 0.2D6, 0.SD6 
0. 25, 0.2S, 0.25, 0.025, 30.0 
25. 0D6, 1. 0D6, 1.0D6, 0.506,0. 2D6.0.5D6 
0.25,0.25,0.25,0.05,-30.0 
25.0D6, 1.0D6, 1.0D6,0.5D6, 0.206,0. 5D6 
0.25,0.25,0.25,0.025, 30.0 
0.333,0.333,0.333,1.0,0.0,0.0 
1.0, 1.0, 1.0, 0.0. 0.0, 0.0, 1.0, 0.0 
•UEL  PROPERTY, ELSET-N3 
3.0,0.0,0.866,0.500,0.866,1.0,  13.0,  1.0 
25. 0D6, 1.0D6, 1.0D6, 0.506,0. 206, 0.5D6 
0.25,0.25,0.25,0.025, 30.0 
25.0D6, 1.0D6, 1.0D6, 0.506,0. 206,0. SD6 
0.25.0.25,0.25,0.05,-30.0 
2S.0D6, 1.0D6,1.0D6, 0.506,0. 2D6.0.5D6 
0.25,0.25,0.25,0.025,30.0 
0.333,0.333,0.333, 1.0, 0.0, 0.0 
1.0, 1.0, 1.0,0. 0,0. 0,0. 0,1. 0,0.0 
•UEL  PROPERTY, ELSET-N4 
3.0,0.0,0.866,0.500,0.500,1.0,13.0.1.0 
25. OD6,1.0D6,1.0D6,0.5D6, 0.206,0.506 
0.25,0.25,0.25,0.025,30.0 
25.0D6, 1.0D6, 1.0D6, 0.506.  0.206,0. 5D6 
0.25,0.25,0.25,0.05,-  32.0 
2S.0D6, 1.0D6, 1 ,0D6,0.  ''06.  0.2D6.0.5D6 
0.25, 0.25,0. 2S,0.0’5.  ,0.C 
0.333,0.333,0.333,1.0,0.0.0.0 
1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0. 0.0 
•UEL  PROPERTY,  ELSET-N5 
3.0,0.0,0.500,0.000,0.500,  1.0,  13.0,  1.0 
25.0D6, 1.0D6, 1.0D6, 0.506,0. 2D6.0.5D6 
0.25,0.25,0.25,0.025,30.0 
25. 0D6.1.0D6, 1.006,0. 5D6, 0. 2D6,  C. SD6 
0.2S, 0.25. 0.25, 0.05, -30.0 
25.0DS, 1.0D6, 1.0D6.0.5D6,0.2D6,0.SD6 
0.25.0.25,0.25,0.025,30.0 
0.333,0.333.0.333,1.0,0.0,0.0 
1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 1.0, 0.0 
•UEL  PROPERTY, ELS£T*N6 
3.0,0.0,0.500,0.000,0.000,  1.0,13.0,  1  .0 
2S.0D6, 1.0D6, 1.0D6, 0.506,0. 2D6.0.5D6 
0.25,0.25,0.25,0.025,30.0 
2S.0D6, 1.006, 1.006,0. 5D6,0.2D6,0.5D6 
0.25,0.25.0.25,0.05,-30.0 
25.0D6, 1.0D6, 1.006,0. 5D6.0.2D6.0.5D6 
0.25.0.25,0.25,0.025,30.0 
0.333,0.333,0.333, 1.0, 0.0, 0.0 
1.0, 1.0, 1.0,0. 0,0. 0,0.0, 1.0, 0.0 
** 

•ELEMENT, TYPE-U1 . ELSET*N1 

1.1,  6,5 

•ELEMENT. TYPE-U1. ELSET-N2 

2. 1.2. 6 

•ELEMENT, TYPE-U1, ELSET-N3 

3. 2. 7. 6 

•ELEMENT. TYPE-U1. ELSET-N4 

4. 2,  3,  7 

•ELEMENT,  TYPE -'Jl ,  ELSE  f-N5 

5.3. 8. 7 

•ELEMENT , TYPE -C. , ELSET -N€ 

6,  3,4.8 
*• 

•USER  SUBROUTINE, INPUT *ue._nOw3 . f 

•  •  - 

•BOUNDARY 


> 


> 


» 


» 


I 


» 


I 


» 


87 


§ 


CARD  105 


CARD  110 


CARD  115 


CARD  120 


CARD  125 


CARO  130 


CARD  135 


CARD  140 


CARD  145 


CARD  150 


1.1.2 

1.4.6 

2,2,2 

2.6.6 

3.2.2 

3.6.6 

4.2.3 

4.6.6 

5.1.2 

5.4.6 

6.2.2 
6,  6,  6 

7.2.2 

7.6.6 

8.2.3 

8.6.6 

*• 

**  INPUT  EQUATIONS  TO  SIMULATE 
**  CYLINDRICAL  BENDING 

"EQUATION 

2 

5, 3, 1.0, 1,3, -1.0 
2 

6,1, 1.0, 2.1, -1.0 
2 

6, 3, 1.0, 2, 3, -1.0 
2 

6, 4, 1.0,2, 4, -1.0 

2 

6, 5, 1.0,2, 5, -1.0 
2 

7, 1,1. 0,3, 1,-1. 0 
2 

7, 3, 1.0,3, 3, -1.0 
2 

7, 4, 1.0, 3, 4, -1.0 
2 

7, 5, 1.0, 3, 5, -1.0 
2 

8,1,1  j,  4,1, -1.0 
2 

8,  4, 1.0, 4, 4, -1.0 
2 

8, 5, 1.0, 4, 5, -1.0 

•  * 

•STEP, PERTURBATION 
•STATIC 
•NODE  PRINT 
U 

•EL  PRINT 
S,  E 

•END  STEP 


t 


» 


» 


OPTIONS  BEING  PROCESSED 


•HEAPING 

USER  ELEMENT  HOT3  TEST  CASE;  CYLINDRICAL  PLATE  BENDING 

•NODE  ft 

•USER  ELEMENT. NODES-3, TYPE-U1, PROPERTIES- 72, COORDINATES* 3 

•ELSET. ELSET-N1 

•ELSET.ELSET-N2 

•ELSET.ELSET-N3 

•ELSE?, ELSET-N4 

•ELSET.ELSET-N5 

•ELSET, ELSET-N6 

•ELEMENT. TYPE-U1, ELSET-N1 

•ELEMENT, TYPE-U1, ELSET-N2 

•ELEMENT, TYPE-U1, ELSET-N3  0 

•ELEMENT.  TYPE-U1,  ELSET-N4 
•ELEMENT, TYPE-U1,  ELSET-No 
•ELEMENT, TYPE-UI ,  ELSET-N6 

•USER  ELEMENT, NODES-3, TYPE-Ul, PROPERTIES. 72, COORDINATES-3 
•EQUATION 

•UEL  PROPERTY, ELSET«N1 
•UEL  PROPERTY,  ELSET-K2 
•UEL  PROPERTY,  SLSET-N3 
•UEL  PROPERTY, ELSET-N4 

•UEL  PROPERTY,  ELSET-US  ft 

•UEL  PROPERTY, ELSET-N6 

•STEF , PERTURBATION 

•STATIC 

•EL  PRINT 

•END  STEP 

•BOUNDARY 

•STEP, PERTURBATION 

•STATIC 

•NODE  PRINT 

•ENT  STEP  § 


l  r  •  :•  7  :  »  1  -  ns 

KUMBSP  ?YPL  i>*>t>r»rp7y  NCD£r  r  OHS  INC 

r;:=trfnc: 
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ft 


4 


1 

2 


1  in 

2  U1 

3  ui 

4  Ul 

5  Ul 

6  Ul 


4 

5 

6 


16  5 

1  2  6 

2  7-6 

2  3  7 

3  8  7 

3  4  8 


USER  ELEMENTS 


ELEMENT  TYPE  Ul 

NUMBER  OF  NODES  3 

NUMBER  OF  COORDINATES  3 

NUMBER  OF  PROPERTIES  It 

NUMBER  OF  VARIABLES  1 


DEGREES  OF  FREEDOM 
NODE  D.O.F. 

1  1  2  3  4  5  6 

2  1  2  3  4  5  6 

3  1  2  3  4  5  6 


USER  ELEMENT  PROPERTY 


PROPERTY  NUMBER  1  I 

PROPERTIES 


3.000 

0 . OOOOE+OO 

1.000 

.8660 

1.000 

1.000 

13.00 

1.000 

2.5000E+07 

1.0000E+06 

1.0000E+06 

5 . 0000E+05 

2. OOOOE+OS 

5. OOOOE+OS 

0 . OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.00 

0. OOOOE+OO 

0. GOOOE+OO 

0. OOOOE+OO 

2.5000E+07 

1. OOOOE+06 

1  -OOOOE+06 

5 . 0000E+05 

2. OOOOE+OS 

5. OOOOE+OS 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

5.0000E-02 

-30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2.5000E+07 

1.0000E+06 

1. 0000E+06 

5.0000E+05 

2 . OOOOE+OS 

5. OCOOE+05 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

.3330 

.3330 

.3330 

1.000 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

1.000 

1.000 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

0. OOOOE+OO 

PROPERTY  NUMBER 

2 

PROPERTIES 

3.000 

0. OOOOE+OO 

1.000 

.8660 

.8660 

1.000 

13.00 

1.000 

2.5000E+07 

1.0000E+06 

1.00DOE+06 

5.0000E+05 

2. 0000E+05 

5. OOOOE+OS 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2 . 5000E-02 

30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2.5000E+07 

I.00O0E+O6 

1. 0000E+06 

5.0000E+0S 

2. OOOOE+05 

5. OOOOE+05 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

5 . 0000E-02 

-30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2 . 5000E+07 

I.0000E+06 

1. 0000E+06 

5.C000E+05 

2. OOOOE+OS 

5. 0000E+05 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.00 

0 . GOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

.3330 

.2330 

.3330 

1.000 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

O.OSOOE+OO 

1.000 

1.000 

1.000 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

0. OOOOE+OO 

PROPERTY  NUMBER 

3 

PROPERTIES 

3.000 

0. OOOOE+OO 

.8660 

.5000 

.8660 

1.000 

13.00 

1.000 

2 . 5000E+07 

1.0000E+06 

1. 0000E+06 

5 . OOOOE+05 

2. OOOOE+05 

5. OOOOE+05 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2.50C0E+07 

1.0000E+06 

1.0Q00C+06 

5 . OOOOE+OS 

2. OOOOE+OS 

5. OOOOE+OS 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

5 . OOOOE-02 

-30.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2.5000E+C7 

1.0000E+06 

1. 0000E+06 

5. 00C0E+05 

2. OOOOE+OS 

5. OOOOE+OS 

O.OOOOE+Ou 

O.OOCOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.30 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

.3330 

.3330 

.3330 

1.000 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

1 . 000 

l.COO 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

0. OOOOE+OO 

PROPERTY  NUMBER 

4 

PROPERTIES 

3.000 

0 . OOOOE+OO 

.8660 

.5000 

.5000 

1.000 

13.00 

1.000 

2 . S00QE+07 

1.CO00E+06 

1.  OOOOE+06 

S.0000E+05 

2. OOOOE+OS 

5. 0000E+05 

0. OOOOE+OO 

0. OOOOE+OO 

.2500 

.2500 

.2500 

2.S000E-02 

30.00 

C. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

2.50QQE+07 

1.000UE+06 

1.0000E+06 

5. 00C0E+05 

2. OOO0E+OS 

S.0000F.  +  05 

C. OOOOE+OO 

Q.OOOOE+OC 

.2500 

.2500 

.2500 

5. 0000E-02 

-30.00 

0. OOOOE+OO 

0. OOOOE+OO 

O.OOOOE+CO 

2.5000E+07 

i.OOOOE+06 

1. OOOOE+06 

5. OOOOE+OS 

2 .OOOOE+05 

5 .  OOOOE  +  OS' 

0. OOOOE+OO 

o.coooE+ao 

.2500 

.2500  . 

.2500 

2.5000E-02 

3C.00 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

.3330 

.3330 

.3330 

;  .ooo 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

0. OOOOE+OO 

1.000 

1.000 

1.000 

0. 0000E+00 

0. OOOOE+OO 

C .OOOOE+OO 

1.000 

0. OOOOE+OO 

PROPERTY  NUMBER 

5 

PROPERTIES 

3.000 

0. OOOOE+OO 

.5000 

C.OOOOE+OC 

.5000 

I. OOO 

13.00 

1 .  OOO 

2 . 50QQE+07 

1 .QOOOE+C6 

1.D000E+06 

5.O0G0E+O3 

2. 0000E+05 

5 .OOOOE+OS 

C. OOOOE+OO 

C. OOOOE+OO 

.2500 

.2500 

.2500 

2.50C0E-C2 

30.00 

C. OOOOE+OO 

0  OOOOE+OO 

C . OOOCE+OO 

2.5000E+07 

l.OCOOE+06 

1  .OOOOF.+06 

5. OOOOE+05 

2. OOOOE+OS 

5.0000F+05 

C. OOOOE+OO 

0. OOOOE+OO 

.2500 

,2500 

.2500 

5.3C0QE-G2 

-3C.00 

0. OOOOE+OO 

C. OOOOE+OO 

o.ooooE+on 

2  5U00E+Q7 

1.0000E+06 

1.0C00E+06 

5.G000E-05 

Z.OCOOF+OS 

5. OOOOE+OS 

C. OOOOE+OO 

C. OOOOE+OO 

.2500 

.2500 

.2500 

3C .  3C 

C.OOOOF+OC 

5.000CF+0C 

C. OOOOE+OO 

.3330 

.3230 

.3330 

»  .  vvv 

C.COOCF-Sr 

C.OOCOL+OC 

5 .0000+  *0C 

C.OOOOE+OC 

1.000 

i .  ooo 

‘..000 

w . 0000E- OC 

c.coccr.-ot 

5.5CC0E+0C 

.  .000 

C.OOOOF+OC 

ft 


PROPERTY  NUMBER 
PROPERTIES 


6 
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3.000 

0.0000E+00 

.500(1 

O.OOOOE+OO 

0.0000E+00 

1.000 

13.00 

1.000 

2.S000E+07 

1.0000E+06 

1 . 0000E+06 

5.0000E+05 

2.0000E+05 

5.0000E+05 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

2.5000E-02 

30.00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2.5000E+07 

1.0000E+06 

1.0000E+06 

5.0000E+05 

2.0000E+05 

5. 0000E+05 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

S.OOOOE-02 

-30.00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2 . 5000E+07 

1.00Q0E+06 

1.0000E+06 

5 . 0000E+05 

2 .  OOOOE  +  05 

5. OOOOE+OS 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

2.SOOOE-02 

30.00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

.3330 

.3330 

.3330 

1.000 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

0  ,‘OOOOE+OO 

1.000 

1.000 

1.000 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

1.000 

O.OOOOE+OO 

E  L  E 

M  E  N  T  S 

E  T  S 

SET 

N1 

MEMBERS 

1 

SET 

M2 

MEMBERS 

2 

SET 

N3 

MEMBERS 

3 

SET 

N4 

MEMBERS 

4 

SET 

N5 

MEMBERS 

5 

SET 

NS 

MEMBERS 

S 

NODE  DEFINITIONS 


NODE 

COORDINATES 

SINGLE 

POINT  CONSTRAINTS 

NUMBER 

TYPE 

PLUS  DOF 

1 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

1  2 

4  5 

6 

2 

.33330 

O.OOOOOE+OO 

O.OOOOOE+OO 

2 

6 

3 

. 66670 

O.OOOOOE+OO 

O.OOOOOE+OO 

2 

6 

4 

1.0000 

O.OOOOOE+OO 

O.OOOOOE+OO 

2  3 

6 

5 

O.OOrLOE+00 

.33330 

O.OOOOOE+OO 

1  2 

4  5 

6 

S 

."3330 

.33330 

O.OOOOOE+OO 

2 

6 

7 

66670 

.33330 

O.OOOOOE+OO 

2 

6 

8 

. .0000 

.33330 

O.OOOOOE+OO 

2  3 

6 

E  Q  U  A  T  I  0 

N  S 

EQUATION 

NU+jBLR 

NODE  DOF  MULTIPLIER 

NODE 

DOF 

MULTIPLIER 

NODE  DOF  MULTIPLIER 

0!'  i'LRMS 

1 

2 

5  3 

1.000 

1 

3 

-1.000 

2 

2 

6  1 

1.000 

2 

1 

-1.000 

3 

2 

6  3 

1.000 

2 

3 

-1.000 

4 

2 

6  4 

1.000 

2 

4 

-1.000 

5 

2 

6  5 

1.000 

2 

5 

-1.000 

6 

2 

7  1 

1.000 

3 

1 

-1.000 

7 

2 

7  3 

1.000 

3 

3 

-1.000 

8 

2 

7  4 

1.000 

3 

4 

-1.000 

9 

2 

7  5 

1.000 

3 

5 

-1.000 

10 

2 

8  1 

1.000 

4 

1 

-1.000 

11 

2 

8  4 

1.000 

4 

4 

-1.000 

12 

2 

8  5 

1.000 

4 

5 

-1.000 

STEP 

1  S  T  A 

TIC  ANA 

L  Y  S  I 

s 

FIXED  TIME  INCREMENTS 

TIME  INCREMENT  IS  2.220E-16 

TIME  PERIOD  IS  2.220E-16 

"HIS  1$  A  DINEAP  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFXNCD  AS  CHANGE  If.  LOAD  TC  THE  REFERENCE  STATE 
EXTRAPOLATION  WILL  NOT  BE  USED 

PRINT  OF  INCREMENT  NUMBER.  TIME,  ETC..,  EVERY  1  INCREMENTS 

f.  C  P  F  1  TINT 

Hi  ~',..lo,.:n;  -able  r  <  •-  inte:  -o--  a...  ncdl'  a-  ever'  :  increment 
dummarie:  nil,  b;  p°inte’ 

TABLE  .  L.  ;•  JR  OR?  UR3 
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BOUNDARY  CONDITIO  N'S 


MAGNITUDE 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

0.0U000E+00 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 


MAGNITUDE 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OO’OOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 


-  (RAMP)  OR  (STEP)  -  INDICATE  USE  OF  DEFAULT  AMPLITUDES  ASSOCIATED  WITH  THE  STEP 

WAVEFRONT  MINIMIZATION 

NUMBER  OF  NODES  20 

NUMBER  OF  ELEMENTS  6 

ORIGINAL  MAXIMUM  D.O.F  WAVEFRONT  ESTIMATED  AS  24 

ORIGINAL  RMS  D.O.F  WAVEFRONT  ESTIMATED  AS  21 

PERIPHERAL  DIAMETER  IS  DEFINED  BY  NODES  4  S 


WAVEFRONT  OPTIMIZED  BY  CHOOSING 


S  AS  THE  STARTING  NODE 


OPTIMIZER  IS  UNSUCCESSFUL  IN  RENUMBERING  ELEMENTS 

PROBLEM  SIZE 

NUMBER  OF  ELEMENTS  IS  6 

NUMBER  OF  NODES  IS  20 

NUMBER  OF  NODES  DEFINED  BY  THE  USER  8 

NUMBER  OF  INTERNAL  NODES  GENERATED  BY  THE  PROGRAM  12 

TOTAL  NUMBER  OF  VARIABLES  IN  THE  MODEL  48 

(DEGREES  OF  FREEDOM  PLUS  ANY  LAGRANGE  MULTIPLIER  VARIABLES) 

MAXIMUM  D.O.F.  WAVEFRONT  ESTIMATED  AS  24 

RMS  WAVEFRONT  ESTIMATED  AS  21 

FILE  SIZES  -  THESE  VALUES  ARE  IN  WORDS  AND  ARE  CONSERVATIVE  UPPER  BOUNDS 


IF  THE  RESTART  FILE  IS  WRITTEN  ITS  LENGTH  WILL  BE  APPROXIMATELY 
2699  WORDS  WRITTEN  IN  THE  PRE  PROGRAM 
PLUS  165  WORDS  WRITTEN  AT  THE  BEGINNING  OF  EACH  STEP 

PLUS  1280  WORDS  FOR  EACH  INCREMENT  WRITTEN  TO  THE  RESTART  FILE 


ALLOCATED  WORKSPACE 
•USER  SUBROUTINE.  INPUT-uel  not.3.f 


END  OF  USER  INPUT  PROCESSING 


JOB  TIME  SUMMARY 
CPU  TIME  (SEC) 


STATIC 


A.  N  A  L  Y  S  IS 


FIXED  TIHE  INCREMENTS 
TIME  INCREMENT  IS 
TIME  PERIOD  IS 


2.220E-16 

2.220E-16 


THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFINED  AS  CHANGE  IN  LOAD  TC  THE  REFERENCE  STATE 


).  C  T  P  I  E  M  F.  N  T  f  A  '  A 


ELEMENT  DATA  IN  GLOBAL  COORDINAT!  SYSTEM 


ELEMENT  ID: 
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* 

HIGHER  ORDER  AUXILIARY  FUNCTIONS: 

HI  «  .272E-07  H2  -  -.846E-07 


HOT 3  DISPLACEMENTS,  STRAINS  AND  STRESSES  THROUGH  ELEMENT  THICKNESS: 


2 

ux 

UY 

U2 

XX 

EPS/SIG 

YY 

EPS/SIG 

zz 

EPS/SIG 

YZ 

GAM/TAU 

XL 

GAM/TAU 

XY 

GAM/TAU 

» 

-.5000-01  - 

.3270-38  - 

.2690-38 

.1540-03 

-.1620-04  .0000+00 

-.22JD+03  -.7090+02  - 

. 475D-05 
.4630-01 

.0000+00 

.0000+00 

.OOOD+OO 

.0000+00 

.1810-05 

-.1170+03 

-.4170-01  - 

.2520-38  - 

•231D-38 

.1540-03 

-.1350-04 
- .  186D+03  - 

.8470-21  • 
-.5910+02  - 

. 397D-05 
.2380-01 

-.764D-06 

-.7050+00 

-.3810-05 

-.172D+01 

.1510-05 
- . 975D+02 

-.3330-01  -  176D-38  - 

.1930-38 

.1540-03 

108D-C4 
-.1490+03  - 

.0000+00 

-.4730+02 

.3230-05 

.3860-01 

- . 139D-05 
- . 128D+01 

- . 692D-05 
-.3120+01 

.1210-05 

-.780D+02 

» 

-  .250D-01  - 

■ . 101D-38  - 

.1540-38 

.1540-03 

-  8120-05 
-.1260+03  - 

. UC0D+00 
-.4030+02 

. 252D-05 
-822D-01 

-.1870-05 

.6990+00 

-.9350-05 

-.373D+01 

.9070-06 

.6740+02 

-.167D-01  - 

.2590-39  - 

.1160-38 

.1540-03 

-.5410-05 
-.8380-02  - 

.0000+00 

-.2680+02 

.1830-05 

.217D+00 

-.2220-05 

.8280+00 

-.1110-04 

-.4420+01 

.6040-06 
. 4500+C2 

-.833D-02 

.4950-39  - 

.7800-39 

.1540-03 

-.2710-05 
-.419D+02  - 

.0000+00 
■ . 1340+02 

.1160-05 

.368D+00 

-.243D-05 

.9060+00 

-.12ID-04 
- . 483D+01 

. 302D-06 
.2250+02 

.0000+00 

.1250-38  - 

.3980-39 

.1540-03 

-.5120-08 

.8220-01 

.0000+00 

.1170+00 

•493D-06 
. 527D+00 

-.2500-05 

.9320+00 

-.1250-04 
- . 497D+01 

.1240-23 

.2600-01 

• 

.8330-02 

. 200D-38  - 

.1630-40 

.1540-03 

.2700-05 

.4200+02 

•000D+00  - 

. 136D+02 

- 173D-06 
.6850+00 

-.243D-05 

■90SD+00 

-.1210-04 

-.4330+01 

-.302D-C6 

-.2240+02 

. 167D-01 

.2750-38 

.3660-39 

.1540-03 

.5400-05  - 

.8400+02 

-.4240-21  - 

.2710+02 

•846D-06 

.8360+00 

-.222D-05 

.8280+00 

-.l’lD-04 
- . 442D+01 

-.604D-06 

-.4490+02 

.2500-01 

. 351D-38 

.7480-39 

.1540-03 

.811D-05 
. 126D+03 

.0000+00  - 
.4050+02 

.1530-05 

.9710+00 

- . 187D-05 
.6990+00 

- . 935D-95 
-.3730+01 

-.907+1-06 

-.6740+02 

• 

.3330-01 

.4260-38 

.1130-38 

.1540-03 

.1080-04 

.1490+03 

.0000+00  - 
•475D+02 

.2240-05 

.1010+01 

-.1390-05 

-.1280+01 

-.6920-05 

-.3120+01 

- . 121D-05 
. 780D+02 

.4170-01 

.501D-38 

.1510-38 

.1540-03 

.1350-04  - 

.1860+03 

.8470-21  - 

.5940+02 

.2980-05 

.1080+01 

-.7640-06 

-.705D+00 

-.381D-05 
- . 172D+01 

-.1510-05 
. 975D+02 

•500D-01 

.577D-38 

.1890-38 

.1540-03 

. 162D-04 
.2230+03 

.OCCD+OO  - 
•712D+02 

.3760-05 
.  110D  +  01 

■000D+00 

■000D+00 

.0000+00 

.0000+00 

-.1810-05 
. 117D+03 

» 

FORCE  AND  MOMENT  RESULTANTS: 

NX  -  .8220-02  NY  - 

MX  -  .378D+00  MY  - 

QX  -  -.717D-01  QY  - 

.1170-01 

.1210+00 

•240D+00 

N2  »  .4780-01  NY2 
•ii  *  .5730-01  MY  2 
02  -  .0000+00 

»  .0000+00 
»  .000D+00 

NZX  ■» 
MZX  - 

. GOOD+OO 
.000D+00 

NXY  *  -.2600-17 

MXY  «  .1420+00 

ELEMENT  FORCES 

NODE  R1 

R2 

R3 

R4 

Rb 

R6 

» 

1  -.325E- 

2  - . 125E- 

3  . 125E- 

18  .398E- 
02  . 434E- 
02  - . 398E- 

03  -.1B7E- 
18  -.371E- 
03  .389E- 

■02  - . 197E 

-01  . 214E 

-01  - . 105E 

-01  -.261E- 
-01  .568E- 
-02  - . 431E- 

01  . OQOE+OO 

01  . OOOE+OO 

01  . OOOE+OO 

ELEMENT  STRAIN  ENERGY  • 

-332E-0S 

ELEMENT  ID: 

2 

» 

HIGHER  ORDER  AUXILIARY  FUNCTIONS: 

HI  -  .259E-01  H2  •  -.8S2E-07 

HOT 3  DISPLACEMENTS,  STRAINS  AND  STRESSES  THhOUGH  ELEMENT 

THICKNESS: 

• 

2 

UX 

UY 

uz 

yv 

EPS/SIG 

YY 

EPS/SIG 

ZZ 

EPS/SIG 

YZ 

GAM/TAU 

XZ 

GAM/TAU 

XY 

GAM/TAU 

» 

-.500D-01  - 

.3270-36  - 

.2690-38 

.  154D-03 

- . I C2D-04  - 

.2230-07  - 

.1560-37 
.7090+0?  - 

.4730-05 

•43SO-01 

.0000+00 
. OOOD+OO 

.0000+00 

.0000+00 

.1810-05 

-.1170+03 

-.4170-01  - 

.2520-38  - 

.231D-38 

.154D-03 

- . 135D-04  - 

-.1860+03  - 

.1S6D-5/’ 
.S91D+C2  - 

.3970-05 

•221D-01 

-.382D-05 

-.1350+01 

-.2280-05 

-.1470+01 

.1510-05 

.9750+02 

-.3330-01  - 

.1760-38  - 

.1930-38 

03 

-.1080-04  - 

-.1490*03  - 

•156D-37 

.4730+02 

.3230-05 
.3. >30-01 

-.6940-05 

-.2450+01 

-.4150-05 

-.2660+01 

.1210-05 

-.7800+02 

-.250: -c:  - 

.:c::-3!  - 

.  1  .41  -+f 

.1^4* 

-.8121.-05  - 

-..260-05  - 

.'.560-37 

,4Cjr*02 

.2521-05 

.7630-01 

- .9370-05 
-.1350+0’. 

- .5600-05 
-.1160+01 

.7070-06 

.6740+02 

» 

-.i€7:,-o:  - 

.2590-3°  - 

.  I’.Cl-H 

. -o  * 

-..->410-05  - 

- . 8 J8D- or  - 

. 1 560-37 
.2681)*  02 

.1320-05 

.2050+00 

- .1110-04 
-.2190*01 

-.6640-05 

-.1380+01 

.6040-06 
. 450D+02 

92 

» 


i 


-.833D-02 

. 495D-39  - 

.7800-39 

.1540-03  -.2710-05  - 

-.4190+02  - 

.1560-37 

.1340+02 

.1140-05 
.  350D+00 

- . 122D-04 
-  .240D+01 

- . 72CD-05 
-.1510+01 

.3020-06 

.2250+02 

.0000+00 

.1250-38  - 

■ . 398D-39 

.1540-03  -.5120-08  - 

.749D-01 

.1560-37 

.lllp+00 

.4700-06 

.5020+00 

-.1250-04 

-.247D+01 

- .  74  6D-05 
-. 15SD+01 

.5920-38 

.2660-01 

.8330-02 

.2000-38  - 

.1630-40 

.1540-03  .2700-05  - 

.4200+02 

. 156D-37 
. 1360+02 

-.202D-06 
. 654D+00 

- . 122D-04 
-.240D+01 

-.7260-05 

-.1510+01 

-.3020-06 

-.2240+02 

.1670-01 

.2750-38 

.3660-39 

.1540-03  .540D-05  - 

. 8400+02 

. 156D-37 
.270D+02 

-.881D-06 
.  799D+00 

-.111D-04 

-.219D+01 

-.6640-05 

-.1380+01 

-.6040-06 

-.4490+02 

.2500-01 

.3510-38 

.748D-39 

.1540-03  .8110-05  - 

. 1260+03 

.1560-37 
. 405D+02 

-.1570-05 
. 928D+00 

-.9370-05 

-.1850+01 

-.5600-05 

-.116D+01 

-.9070-06 

-.6740+02 

. 333D-01 

.4260-38 

.1130-38 

.1540-03  .1080-04  - 

.1490+03 

.1560-37 
. 475D+02 

-.2290-05 

.9670+00 

-.694D-05 

-.245D+01 

-.4150-05 

-.266D+01 

- . 121D-05 
. 780D+02 

.4170-01 

.5010-38 

.1510-38 

.1540-03  .1350-04  - 

. 186D+03 

. 1S6D-37 
. 593D+02 

-.3030-05 

.1030+01 

-.382D-05 

-.1350+01 

-.2280-05 
- . 147D+01 

- . 151D-05 
.9750+02 

.5000-01 

•577D-38 

.1890-38 

.1540-03  .1620-04  - 

•223D+03 

. 156D-37 
.7120+02 

- . 381D-C5 
. 1050+01 

.0000+00 

■OOOD+OO 

.0000+00 

.0000+00 

-.1910-05 
. 117D+03 

FORCE  AND  MOMENT  RESULTANTS: 

NX  *  .7490-02  NY  - 

MX  >  .3780+00  MY  - 

QX  -  -.4820-01  QY  - 

.1110-01 
. 120D+00 
- .208D+00 

NZ  -  .4S5D-01  NYZ 
MZ  -  .5460-01  MY 2 
QZ  -  .0000+00 

-  .0000+00  NZX  * 

»  .000D+00  MZX  - 

.OOOD+OO 

.0000+00 

NXY  -  .291D-32 

MXY  •  .1420+00 

ELEMENT  FORCES 

NODE  R1 

R2 

R3 

R4  R5 

R6 

1  . 12SE- 

2  - . 125E- 

3  . 485E- 

02  - . 485E- 
02  .398E- 
33  -.393E- 

33  . 160E- 

03  .501E- 

03  -.210E- 

-01  -.254E-01  - . 656E- 
-02  .187E-02  . 382E- 
•01  . 16SE-01  .2 21E- 

01  . 000E+00 

01  . OOOE+OO 

01  .000E+00 

ELEMENT  STRAIN  ENERGY  - 

-331E-05 

ELEMENT  ID: 

3 

HIGHER  ORDER  AUXILIARY  FUNCTIONS: 

W1  -  .212E-07  W2  -  - . 613E-07 

HOT 3  DISPLACEMENTS,  STRAINS  AND  STRESSES  THROUGH  ELEMENT 

THICKNESS 

Z 

UX 

UY 

XX 

UZ  .  EPS/SIG 

YY 

EPS/SIG 

zz 

EPS/SIG 

YZ 

GAM/TAU 

XZ 

GAM/TAU 

XY 

GAM/TAU 

-.500D-01  - 

.541D-OS 

.6040-06 

.1340-03  -.1190-04 

- . 163D+03  - 

. 169D-20 
.519D+02 

.3470-05 

-.3670-01 

•OOOD+OO 

■OOOD+OO 

•OOOD+OO 

.0000+00 

.1330-05 

-.8560+02 

-.4170-01  - 

. 4510-05 

.504D-06 

.1340-03  -.9900-05 

-.1360+03  - 

. 169D-20 
.4330+02 

•291D-05 
- .  191D-01 

-.514D-05 

-.257D+01 

-.8880-05 

-.4440+01 

.111D-05 

-.7140+02 

-.333D-01  - 

.3610-05 

.4030-06 

.1340-03  -.7920-05 

- . 109D+03  - 

•OOOD+OO 

-346D+02 

.2370-05 

•295D-01 

-.9350-05 

-.4670+01 

-.1610-04 

-.8080+01 

.8850-06 

-.5710+02 

- .250D-01  - 

.2700-05 

.3020-06 

. 134D-03  -.594D-05 

-.9200+02  - 

. 847D-21 
.2950+02 

.1850-05 

.6590-01 

-.1260-04 

-.6400+00 

-.2180-04 

-.762D+01 

.664D-06 

.4940+02 

-.1670-01  - 

.1800-05 

.2010-06 

. 134D-03  -.396D-05 

-.6130+02  - 

.4240-21 

.1960+02 

.1350-05 
. 170D+00 

-.1500-04 

-.7580+00 

-.256D-04 

-.9030+01 

.4420-06 

.32qD+02 

-.8330-02  - 

.9030-06 

.1010-06 

.1340-03  - . 198D-05 

-.3060+02  - 

.2120-21 
. 977D+01 

.8650-06 

.2870+00 

-.164D-04 

-.8290+00 

-.283D-04 
-. 988D+01 

.2210-06 

•165D+02 

. 000D+00  - 

.1710-08 

.3100-24 

.1340-03  - . 350D-08 

.7120-01 

.OOOD+OO 

.9370-01 

.3840-06 

.4100+00 

-.1680-04 

-.8530+00 

-.2910-04 

-.1020+02 

-.2170-24 
. 165D-01 

.8330-02 

.8990-06  - 

. 101D-06 

.1340-03  .1980-05  - 

.3080+02 

.2120-21 

.9950+01 

- . 972D-07 
.5330+00 

-.1640-04 

-.8290+00 

-.2830-04 

-.9880+01 

-.221D-06 
- .  164D+02 

.1670-01 

.1800-05  - 

.2010-06 

.1340-03  .3950-05  - 

.6150+02 

•424D-21 
.  198D+02 

-.5840-06 

.6500+00 

-.1500-04 

-.7580+00 

-.2580-04 

-.9030+01 

- . 4420-06 
-.329D+02 

.2500-01 

.2700-05  - 

.3020-06 

.1340-03  .5930-05  - 

.9220+02 

.4240-21 

.2970+02 

- . 108D-05 
. 754D+00 

-.1260-04 

-.6400+00 

-.218D-04 
- . 762D+01 

-.6640-06 

-.4930+02 

.3330-01 

.3600-05  - 

.4030-06 

.1340-03  .7910-05  - 

.1090+03 

.8470-21 

.3480+02 

-.1600-05 

.7910+00 

-.9350-05 
- . 467D+01 

-.1610-04 

-.8080+01 

-.8850-06 

.5710*02 

.4170-01 

.4500-05  - 

.5040-06 

.1340-03  .9890-05 

.1360+03 

.0000+00 

.4350-02 

-.2140-05 

.8390-00 

-.5140-05 

-.2570*01 

-.8880-05 

-.4440+01 

-.1110-05 

.7130*02 

.5000-01 

.5400-05  - 

.6040-06 

.1340-03  .1190-04  - 

,lt>40 -Cl- 

.  169!.-2C 
.5210-02 

- . 2"*  10-75 
.8570+00 

.0000+00 

.0000+00 

.0000*00 

.0000+00 

-.1331-05 

.8560*07 

FORCE  A NO  MOMENT  RESULTANTS: 


93 


NX 

«  . 712D-02 

NY  - 

.9370-02 

NZ  - 

.3720-01 

NYZ  - 

. 000D+00 

NZX  - 

•OOOD+OO 

NXY  - 

-. 499D-17 

MX 

-  .2770+00 

MY  - 

.  382D-01 

MZ  - 

.4460-01 

MYZ  - 

•OOOD+OO 

MZX  - 

.OOOD+OO 

MXY  - 

.I04D+00 

OX 

-  -.3000+00 

QY  - 

.597D+00 

QZ  - 

.0000+00 

ELEMENT  FORCES 


NODE  R1 


R2  •  R3 


R4  R5  R6 


1 

-.542E-19 

.272E-03 

. 1 78E-01 

-.176E-01 

-.231E-01 

. OOOE+OO 

2 

- . 853E-03 

.379E-18 

-.802E-01 

. 117E-01 

. 327E-01 

. ODCE+OO 

3 

.  8S3E-03 

-.272E-03 

. 624E-01 

.55SE-04 

-.364E-01 

■OOOE+OO 

ELEMENT  STRAIN  ENERGY  -  .210E-OS 


ELEMENT  ID:  4 

HIGHER  ORDER  AUXILIARY  FUNCTIONS: 

W1  -  . 177E-G7  W2  -  -.630E-07  § 


HOT3  DISPLACEMENTS,  STRAINS  AND  STRESSES  THROUGH  ELEMENT  THICKNESS: 


Z 

UX 

UY 

UZ 

XX 

EPS/SIG 

YY 

EPS/SIG 

EPS/SIG 

YZ 

GAM/TAU 

XZ 

GAM/TAU 

XY 

GAM/TAU 

5000-01 

-.541D-05 

.6040-06 

.1340-03 

- . 119D-04 
-.163D+03 

-.9870-38 

-.519D+02 

.3480-05 

-.29JD-01 

.0000+00 

.0000+00 

.0000+00 

.OOOD+OO 

.1330-05 

-.8560+02 

,4170-01 

-.451D-05 

.5040-06 

.1340-03 

-.9900-05 
- . 136D+03 

-.9870-38 

-.4330+02 

.291D-05 

-.1450-01 

-.7380-05 

-.304D+01 

-.776D-05 

-.4260+01 

.1110-05 

-.7140+02 

333D-01 

-.3610-05 

.403D-06 

.1340-03 

-.7920-05 
- . 109D+03 

-.9870-38 

-.3460+02 

.2360-05 

.260D-01 

-.1340-04 

-.SS2D+01 

-.1410-04 

-.7740+01 

.8850-06 

-.571D+02 

2S0D-01 

-.270D-05 

.3020-06 

.1340-03 

- .5940-05 
-.9200+02 

-.9870-38 

-.2950+02 

.1840-05 

.5010-01 

- . 181D-04 
-.2510+01 

-.1900-04 

-.S74D+01 

.6640-06 

.4940+02 

1670-01 

-.180D-05 

.2010-06 

.1340-03 

-.3960-05 

-.6130+02 

-.9870-38 

-.1960+02 

.1320-05 

.1390+00 

-.215D-04 

-.2970+01 

- .226D-04 
-.681D+01 

. 442D-06 
•329D+02 

8330-02 

-.903D-06 

.1010-06 

.1340-03 

- . 198D-05 
-.3060+02 

-.9870-38 

-.978D+01 

.8200-06 

.23BD+00 

-.2350-04 

-.325D+01 

-.2470-04 

-.744D+01 

.2210-06 
. 165D+02 

OOOD+OO 

- . 171D-0B 

.1570-38 

, 134D-03 

-.3500-08 

.S11D-01 

-.9870-38 
. 7560-01 

•321D-06 

.343D+00 

-.241D-04 

-.3340+01 

-.254D-04 

-.766D+01 

-.1160-38 

■182D-01 

833D-02 

•899D-06 

-.1010-06 

.1340-03 

.1980-05 

.3080+02 

-.9870-38 
. 993D+01 

-.177D-06 

•447D+0C 

-.23SD-04 

--325D+01 

- .247D-04 
- . 744D+01 

-.2210-06 
- . 164D+02 

167D-01 

. 180D-05 

-,20’D-06 

.1340-03 

.3950-05 

.6150+02 

-.9870-38 

.1980+02 

- . 681D-06 
.5470+00 

- .21SD-04 
--297D+01 

-.226D-04 
- . 681D+01 

- . 442D-06 
-.329D+02 

2S0D-01 

.270D-05 

-.3020-06 

.1340-03 

.5930-05 

•921D+02 

-.9870-38 

.2960+02 

-.119D-05 

.6360+00 

- . 181D-04 
-.251D+01 

- . 190D-04 
-.5740+01 

- . 664D-06 
-.4930+02 

333D-0I 

•360D-05 

-.4030-06 

.1340-03 

.7910-05 

.1090+03 

-.9870-38 

.3480+02 

- . 172D-05 
.6600+00 

- . 134D-04 
-.5520+01 

-.1410-04 
- . 774D+01 

- . 885D-06 
.5710+02 

4170-01 

.4500-05 

-.5040-06 

.1340-03 

.9890-05 

.1360+03 

-.9870-38 

.4340+02 

-.227D-05 

•700D+00 

-. 7380-05 
-  304D+01 

-.776D-05 

-.4260+01 

-.111D-05 

•713D+02 

S00D-01 

.5400-05 

-.6040-06 

.1340-03 

.1190-04 
. 1 64D+03 

-.9870-38 

•521D+C2 

-.2840-05 

.7150+00 

.0000+00 

.0000+00 

.0000+00 

.0000+00 

-.1330-05 

.8560+02 

FORCE  AND  MOMENT  RESULTANTS: 


NX 

-  .5110-02 

NY 

-  .7560-02 

NZ  - 

.3110-01 

NYZ  - 

■DuOD+OO 

NZX  - 

•OOOD+OO 

NXY  - 

-.5700-33 

» 

MX 

OX 

-  .2770+00 

-  - .225D+00 

MY 

QY 

-  .8820-01 
*  -.3650*00 

MZ  - 
QZ  - 

.373D-01 

•OOOD+OO 

MYZ  - 

.OOOD+OO 

MZX  • 

.0000+00 

MXY  - 

.1040+00 

ELEMENT  FORCES 


NODE  R1 


R2  R3 


R4  R5  R6 


. 853E-03 

. 949E-34 

. 648E-0I 

-.226E-01 

-.S69F-01 

•OOOE+OO 

2 

-.853E-03 

.272E-03 

.  303E-01 

•219E-02 

.231E-01 

•OOOE+OO 

3 

-,94“E-34 

-.272E-03 

-.345E-0I 

•392E-02 

•I22E-0I 

•OOOE+OO 

ELEMENT  STRAIN  ENERGY  -  .2081-05 


ELEMENT  ID:  5 

HIGHER  ORDER  AUXILIARY  FUNCTIONS: 
w:  .  .947.1 -OR  M;  ,  -,Di6r-07 

HOT?  DISPLACEMENTS.  STRAIN.-  ANT  STRESSES  THROUG'  ELEMENT  THICKNESS: 


XX  YY  ZZ  YZ 


XZ  XY 


94 


» 


•  'l  I 


z 

■  UX 

UY 

UZ 

EPS/SIG 

EPS/SIG 

ErS/SlG 

GAM/TAU 

GAM/TAU 

GAM/TAU 

SOOD-Ol 

- . 937D-05 

.1050-05 

.7710-04 

-.4350-05 

-.5980+02 

.1270-20 
-. 190D+02 

.127D-05 
-.5  72D-01 

.0000+00 

.0000+00 

.0000+00 

.0000+00 

.4860-06 

-.313D+G2 

4170-01 

-.781D-05 

.873D-06 

.7710-04 

-.3620-05 

-.4900+02 

.1060-20 

-.1580+02 

.1060-05 
- . 926D-02 

-.8140-05 

-.3740+01 

-.1160-04 

-.5970+01 

.4050-06 

-.2610+02 

333D-01 

-.6250-05 

.6980-06 

.7720-04 

-.290D-G5 

-.3990+02 

. 635D-21 
- .  127D+02 

.8680-06 

.1260-01 

-.148D-04 

-.680D+01 

-.2100-04 

-.1090+02 

.3240-06 

-.209D+02 

250D-01 

-.4690-05 

.5240-06 

.7720-04 

-.2170-05 

-.3370+02 

. 635D-21 
-. 108D+02 

.585D-06 

.3210-01 

-.2000-04 

-.1810+01 

-.284D-04 

-.9470+01 

.2430-06 

.1810+02 

1670-01 

-.3120-05 

.3490-06 

.7720-04 

-.1450-05 

-.2240+02 

•424D-21 

-.7180+01 

.509D-06 

.7800-01 

-.237D-04 

-.2140+01 

-.3370-04 

-.112D+P2 

.1620-06 

.1200+02 

833D-02 

-.1560-05 

. 1750-06 

•772D-04 

-.7250-06 

-.1120+02 

.  159D-21 
-.3570+01 

.3390-06 

.1290+00 

-.2590-04 
- .234D+01 

-.3680-04 

-.123D+02 

.8100-07 

.6020+01 

0000  >00 

-.287D-08 

.2070-24 

.7720-04 

-.9370-09 

.4110-01 

-.414D-24 

.449D-01 

.1720-06 
.  184D+00 

-.2660-04 

-.2410+01 

-.3790-04 

-.1260+02 

-.619D-2<i 

.2480-02 

833D-02 

.1560-05 

-.1750-06 

. 772D-04 

.7230-06 

.1130+02 

-. 1590-21 
.3660+01 

.4400-08 

.2380+00 

-.2590-04 

-.2340+01 

-.368D-04 

-.1230+02 

-.8100-07 

-.692D+01 

167D-01 

.3120-05 

-.3490-06 

.7720-04 

.1450-05 

.2250+02 

-.318D-21 

.7270*01 

-.1660-06 

.2900+00 

-.2370-04 

-.2140+01 

-.3370-04 
-. 112D+02 

-.1620-06 

-.120D+02 

2S0D-01 

•468D-05 

-.5240-06 

.7720-04 

.2170-05 

.338D+02 

-.6350-21 

.1090+02 

-.3410-06 

.3350+00 

-.2000-04 

--181D+01 

-.2840-04 

-.9470+01 

-.2430-06 

-.181D+02 

333D-01 

.624D-05 

-.698D-06 

.772D-04 

•290D-05 
. 400D+02 

-.6350-21 
. 128D+02 

-.5240-06 

.3S5D+00 

-.1480-04 

-.6800+01 

-.2100-04 

-.1090+02 

-.3240-06 

.2090+02 

417D-01 

•780D-G5 

-.8730-06 

.772D-04 

.3620-05 

.4990+02 

--127D-20 

.1590+02 

-.7180-06 

.3770+00 

-.8140-05 

-.3740+01 

-.1160-04 

-.5970+01 

-.4050-06 

.2610+02 

500D-01 

•936D-0S 

-.105D-05 

•772D-04 

.4340-05 

.5990+02 

-.1270-20 

.1910+02 

-.9240-06 

.3850+00 

.0000+00 

.000D+0Q 

.0000+00 

.0000+00 

-.4860-06 

.3130+02 

FORCE  AND  MOMENT  RESULTANTS: 


NX 

-  .4110-02 

NY  - 

.449D-02 

NZ  - 

.1670-01 

nstz  » 

.0000*00 

NZX  - 

. OOOD+OO 

NXY  - 

.4220-13 

MX 

-  . 101D+00 

MY  - 

.  323D-01 

MZ  - 

.2000-01 

MYZ  « 

.0000+00 

MZX  « 

.0000+00 

MXY  - 

.382D-01 

QX 

-  -.447D+00 

QY  - 

.794D+00 

o 

N 

• 

.0000+00 

ELEMENT  FORCES 


NODE 

R1 

R2 

X3 

P.4 

R5 

R6 

1  - 

. 136E-19 

.  729E-04 

.326E-01 

--108E-01 

-.139E-01 

. OOOE+OO 

2  - 

•228E-03  - 

.  176E-18 

-.102E+00 

*. 122E-02 

-.100E-03 

•OCOE+OO 

3 

•228E-03  - 

•729E-04 

.692E-01 

. 114E-02 

-.199E-01 

.000E+0D 

ELEMENT 

STRAIN  ENERGY  »  .1 

B65E-06 

ELEMENT 

ID:  6 

HIGHER 

ORDER  AUXILIARY  FUNCTIONS: 

W1  -  . 

474E-0B  H2  ■ 

-  -.239E- 

-07 

HOT 3  DISPLACEMENTS,  STRAINS  AND  STRESSES  THROUGH  ELEMENT  THICKNESS: 


Z 

UX 

UY 

UZ 

XX 

EPS/SIG 

YY 

EPS/SIG 

ZZ 

EPS/SIG 

YZ 

GAM/TAU 

xz 

GAM/TAU 

XY 

GAM/TAU 

-.5000-01 

-.9370-05 

.1050-05 

.7710-04 

-.4350-05 

-.5980+02 

-.2030-78 

-.1900+02 

.1280-05 

-.6930-02 

.0000+00 

.0000:50 

.0000+00 

.5000+00 

.4860-06 
- .3130+02 

-.4170-01 

-.7810-05 

.8730-06. 

.7710-04 

-.3620-05 

-.4990*02 

-.2030-38 

-.1580+02 

.1070-05 

-.3040-02 

-.8960-05 

-.3910*01 

-.1120-04 

-,5910+01 

.4050-06 

-.261D+02 

-.3330-01 

-.6250-05 

.6980-06 

.7720-04 

-.2900-05 

-.3990+02 

-.2030-38 

-.127D+02 

.863D-06 

.7710-0? 

-.1630-04 

-.7120+01 

-.2030-04 

-.1070+02 

.3240-06 

-.2090*02 

-.2500-01 

-.4690-05 

.5240-06 

.7720-04 

-.217D-0S 

-.3370+02 

-.2030-36 
- , 1030+02 

.6640-06 

.1040-01 

-.2200-04 

-.2490+01 

-.2740-04 

-.8760+01 

.2430-06 

.1810+02 

-.1670-01 

-.3120-05 

.3490-06 

.7720-04 

-.1450-05 

-.2250+02 

- .203D-38 
-.7150*01 

.4650-06 

.3530-01 

-.261D-04 

-.2950+01 

-.3250-04 

-.1040+02 

.1620-06 
< 12QD'02 

-.8330-02 

-.1560-05 

.1750-06 

.7720-04 

-.7250-06 
-. 1120-02 

-.2030-38 

-.3580+01 

.2770-06 

.6290-01 

-.2850-04 

-.3230+01 

-.3550-04 

-.1140+02 

.8100-07 

.6020+01 

.OCOD+OC 

-.2870-08 

.1:90-38 

.■>722—04 

-.0370-09 

.1371-5: 

-  .213!.— 3t 
.:s3i-o: 

.8010-07 

.9190-01 

-.2530-04 

-.3320+01 

- .3650-04 
-.1170+0? 

-.255r*-3P 

.4881-0? 

.8330-02 

.1560-05 

-.1750-06 

.■>720-04 

.7230-06 
.  11 2l>- 01* 

-  ,2030-38 
• j62D*0l 

-.1050-96 

.1210+OC 

-.2350-04 

-.3230+01 

-.3550-04 

-.u'o+oa 

-.8150-0? 

-.G010+01 

95 


H 


•1C7D-01 

. 312D-05 

-.3490-06 

.7720-04 

.1450-05 

.2250+02 

.2930-38 

.7230+01 

-.2970-06 

.1480+00 

-.2610-04 

-.2950+01 

-.3250-04 

-.1040+02 

-.1620-06 

-.1200+02 

.2500-01 

.4680-05 

-.5240-06 

.7720-04 

.217D-05 

.3370+02 

-.203D-32 

.1080+02 

-.492D-06 

.1730+00 

-.2200-04 

-.2490+01 

-.2740-04 

-.8730+01 

-.2430-06 

-.18:0+02 

.333D-01 

.6240-05 

! 

-.6980-06 

.772D-04 

.2900-05 

.3990+02 

-.2030-38 

.1270+02 

-.6910-05 

.1760+90 

-.1630-04 
-. 712D+01 

-.203D-04 

-.1070+02 

-.3240-06 

.2090+02 

.9170-01 

.7800-05 

-  .873D-06 

.7720-04 

.3620-05 

.4990+02 

-.2030-38 

.1S9D+02 

-.895D-06 

.1870+00 

-.8960-05 

-.3910+01 

-.1120-04 

-.5910*01 

-.4050-06 

.2610+02 

. 500D-01 

.9360-05 

-.1050-05 

.7710-04 

.4340-05 

.5090+02 

-.2030-38 

.1900+02 

-.1110-05 

.1910+00 

•OOOD+OQ 

■0000+00 

.0000*00 

.000D+P0 

-.4B6D-06 

.5130+02 

FORCE  AND  MOMENT  RESULTANTS: 


NX 

«  .1370-02 

NY 

-  .2030-02 

HZ  - 

.8330-02 

NYZ  - 

.0000+00 

NZX  - 

.OOOD+OO 

NX:'  -  -.1250-?’ 

MX 

-  .1010+00 

MY 

-  .3230-01 

HZ  - 

. 100D-01 

MYZ  » 

.0000+00 

MZX  - 

,0000' I- 

nAt  ^6?^'  vi 

QX 

-  -.3420+00 

QY 

-  -.4240+00 

» 

to 

O 

.0000+00 

ELEMENT  FORCES 


NODE  R1  R2 


R3 


R4  R5  RS 


1  .228E-03 

2  -.228E-03 

3  -.209E-j33 


.209E-33  . 962E-01 

.729E-04  -.574E-01 

-.729E-0*  -.3B8E-Q1 


ELEMENT  STRAIN  ENERGY  -  .8SSE-06 


-.138E-01 
. 193E-02 
-. 109E-02 


-.329E-01 
. 187E-02 
-  .103E-02 


. Q00E+00 
. OOOE+CO 
.OOOE+OO 


INCREMENT  1  SU1«ARY 


TIME  INCREMENT  COMPLETED  2.22JE-IS,  FRACTION  OF  STEP  COMPLETED 
STEP  TIME  COMPLETED  2.220E-16,  TOTAL  TIME  COMPLETED 


1.00 

0. 000E+00 


NODE  OUTPUT 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  ALL  NODES 


NODE  FOOT¬ 

-  U1 

U2 

U3 

UR1 

UR2 

UR3 

NOTE 

1 

U.00C0E+00 

O.OOOOE+OO 

1.5436E-04 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2 

-1.7058E-09 

O.OOOOE+OO 

1 . 3368E-04 

1.2089E-05 

1.0813E-04 

O.OOOOE+QC 

3 

-2.E716E-09 

O.OOOOE+OO 

7.7172E-0S 

2.0940B-05 

1.873.1E-04 

O.OOOOE+OO 

4 

-3.I838E-09 

O.OOOOE+CO 

O.OOOOE+OO 

2.4178E-05 

2.1628E-04 

O.OOOOE+OO 

5 

O.OOOOE+OO 

O.OOOOE+OO 

1.S456E-04 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+CO 

6 

-1.705SE-09 

O.OOOOE+OO 

1.3368E-04 

1.2089E-05 

1.0B13E-C-4 

O.OOOOE+OO 

7 

-2.8716E-09 

O.OOOOE+OO 

7.7172E-05 

2 .0940E-C5 

1.8731E-04 

O.OOQOE-OO 

8 

-3.1838E-09 

O.OOOOE+OO 

O.OOOOE+OO 

2.4178E-0S 

2.1628E-04 

O.OOOOE+QQ 

MAXIMUM 

O.OOOOE+CO 

O.OQOOE-OO 

1.5436E-04 

2.4178E-05 

2.1628E-04 

0.9000E+00 

AT  NODE 

1 

1 

1 

4 

4 

1 

MINIMUM 

-3.1838E-09 

O.OOCOE+OO 

C.OOOOE+OO 

O.OOOOEtOO 

O.OOOOE+OO 

O.OOOOE+OO 

AT  NODE 

4 

1 

4 

1 

1 

1 

THE  ANALYSIS  HAS  SEER  COMPLETED 


% 


•  H  i 


ABAQUS  INPUT  DECK 


•HEADING 

EIGEN  ANALYSIS  OF  A  SQUARE  PLATE  USING  8  HOT3  ELEMENTS 
•PREPRINT, ECHO-NO 

•  * 

•NODE 

1,0. 0,0. 0,0.0 
2,0.5, 0.0, 0.0 
3, 1.0, 0.0, 0.0 

I,  0.0, 0.5, 0.0 
5,0. 5, 0.5, 0.0 
6,1. 0,0. 5, 0.0 
7, 0.0, 1.0, 0.0 
8,0. 5, 1.0, 0.0 
9,1. 0,1. 0,0.0 

10,  0.1666667,  0.1666667,  0.0 

II,  0.3333333,  0.3333333,  0.0 

12,  0.6666667,  0.3333333,  0.0 

13,  0.8333333,  0.1666667,  0.0 

14,  0.1666667,  0.8333333,  0.0 

15,  0.3333333,  0.6666667,  0.0 

16,  0.6666667,  0.6666667,  0.0 

17,  0.8333333,  0.6333333,  0.0 
•• 

•NSET, NSET-NOUT, GENERATE 

1.9.1 

•NSET, NSET-NCEN, GENERATE 

10.17.1 

•  • 

•USER  ELEMENT, NODES-4, TYPE-U1, PROPERTIES-72, COORD INATSS-6 
1,2, 3, 4, 5, 6 
•ELSET, ELSET-N1 

** 

•UEL  PROPERTY, ELSET-N1 
3.0,1.0,0.000,0.000,0.000,1.0,3.0,1.0 
1.0E6, 0.02SE6, 0.025E6, 0.01SE6, 0.0125E6, 0.01SE6 
0.25,0.25,0.25,0.05,0.0 

1.0E6, 0.02SE6, 0.025E6, 0.015E6, 0.0125E6, 0.01SE6 
0.25,0.25,0.25,0.1,90.0 

1.0E6, 0 . 025E6, 0 . 02SE6, 0 . 015E6. 0 . 01 25E6, 0 . 015E6 
0.25,0.75.0.25,0.05,0.0 
0. 333, L. 333. 0.333, 1.0, 0.0, 0.0 
2. 0,0. 0,1. 0,0. 0,0. 0,0. 0,1. 0,0.0 
•* 

•ELEMENT, TYPE-U1 , ELSET-N1 

1.1.5.4.11 
2,1,2.5,10 

3.2.3.5.12 

4.3.6.5.13 

5.4.5. 7. 14 

6.5.8.7.15 
7,5,9,8,17 

8.5.6.9.16 
** 

•USER  SUBROUTINE, INPUT-uel_hot3 . f 

•  « 

•BOUNDARY 
NOUT, 6, 6 
KCEN.3,6 

1.1.5 

2.1.1 

2.3.3 

2.5.5 

3.1.5 

4.2.4 

6.2.4 

7.1.5 
8.1,1 
8,3,3 

8.5.5 

9.1.5 
•  * 

•STEF, PERTURBATION 
•FREQUENCY 
5 

•NOPE  PRINT,  NSET-NOUT 


» 


ABAQUS  OUTPUT  FILE 


I» 


AAAAAA 

BBBBBBBBB 

AAAAAA 

QQQQQQQQ 

u 

u 

A 

A 

B 

3 

A 

A 

0 

0 

u 

0 

A 

A 

B 

B 

A 

A 

Q 

Q 

u 

u 

A 

A 

B 

S 

A 

A 

Q 

Q 

u 

u 

AAAAAAAAAA 

BBBBBBBBB 

AAAAAAAAAA 

Q 

Q 

u 

u 

A 

A 

B 

B 

A 

A 

Q 

O  Q 

0 

0 

A 

A 

B 

B 

A 

A 

0 

Q  Q 

u 

u 

A 

A 

B 

B 

A 

A 

0 

Q  Q 

u 

u 

A 

A 

BBBBBBBBB 

A 

A 

QQQQQQQQ 

uuuuuuuu 

Q 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

<l> 

<l> 

<l> 

1 

<l> 

1 

<l> 

1 

1 

<l> 

<i> 

<l> 

<l> 

1 

<l> 

1 

1 

1 

1 

1 

<l> 

<l> 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l> 

1 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

1 

1 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

1 

<l> 

1 

<l> 

<l> 

<  1  * 

<l> 

<l> 

<l> 

<l> 

I 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<l> 

<I> 

THIS  PROGRAM  HAS  BEEN  DEVELOPED  BY 

HIBBITT.  KARLSSON  AND  SORENSEN,  INC. 

1080  MAIN  STREET 
PAWTUCKET,  R.I.  02860 


THIS  IS  A  PROPRIETARY  PROGRAM.  IT  MAY  ONLY  bE 
USED  UNDER  THE  TERMS  OF  THE  LICENSE  AGREEMENT 
BETWEEN  HIBBITT,  KARLSSON  (  SORENSEN,  INC. 

AND  ARMY  RESEARCH  LABORATORY. 

ON  MACHINE  0X080009411656, 

YOU  ARE  AUTHORIZED  TO  RUN 
STANDARD  AND  POST  UNTIL  12/31/93 

YOUR  SITE  ID  IS:  ARMY  RESEARCH 


FOR  ASSISTANCE  OR  ANY  OTHER  INFORMATION  CALL 

401-', "7-4200  (PAWTUCKET,  RHODE  ISLAND) 
>;R 

510-794-5891  (NEWARK,  CALIFORNIA) 


SSSSSSSS 

s 

s 

s 

SSSSSSSS 


S 

SSSSSSSS 


» 


» 


» 


*  NOTICE  * 


THIS  IS  ABAQUS  VERSION  5.2. 


PLEASE  MAKE  SURE  YOU  ARE  USING  VERSION  5.2  MANUAI.S 
PLUS  THE  NOTES  ACCOMPANYING  THIS  RELEASE.  THESE  NOTES 
CAN  BE  OBTAINED  BY  USING  THE  INFORMATION  OPTION  ON  THE 
ABAQUS  COMMAND  LINE. 


i 


» 


OPTIONS  BEING  PROCESSED 


» 


* “EASING 

EIUt-YANALYSi:  O'  A  SQUARE  PLAT!  USING  t>  HOTS  ELEMENTS 

•NODE 

•NSEC ,  NSE1  -NO'JT .  CSNF.RATl 
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•NSET, NSET-NCEN, GENERATE 

•USER  ELEMENT, NODES-4, TYPE-U1, PROPERTIES- 72, COORDINATES-6 
•ELSET,  ELSET-N1 
•ELEMENT, TYPE-U1.ELSET-N1 

•USER  ELEMENT, NODES-4 , TYPE-U1 , PROPERTIES-72 , COORDiNATES-6 

•UEL  PROPERTY, ELSET-N1 

•STEP, PERTURBATION 

•FREQUENCY 

•END  STEP 

•BOUNDARY 

•STEP, PERTURBATION 
•FREQUENCY 

•NODE  PRINT,  NSET-NOUT 
•END  STEP 


ELEMENT 


DEFINITIONS 


NUMBER  TYPE 


PROPERTY  NODES  FORMING  ELEMENT 
REFERENCE 


1  UI 

2  Ul 

3  Ul 

4  Ul 

5  Ul 

6  Ul 

7  Ul 

8  Ul 


1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

2 

3 

4 

5 
5 
5 


5  4  11 

2  5  10 

3  5  12 

6  5  13 

5  7  14 

8  7  15 

9  8  17 

6  9  16 


USER  ELEMENTS 


ELEMENT  TYPE  Ul 

NUMBER  OF  NODES  4 

NUMBER  OF  COORDINATES  6 

NUMBER  OF  PROPERTIES  72 

NUMBER  OF  VARIABLES  1 

DEGREES  OF  FREEDOM 
NODE  D.O.F, 

1  1  2  3  4  5  6 

2  1  2  3  4  5  6 

3  1  2  3  4  5  6 

4  1  2  3  4  5  6 


USER  ELEMENT  PROPERTY 


PROPERTY  NUMBER  1 

PROPERTIES 


3.000 

1.000 

0.0000E+00 

O.OOOOE+OO 

O.OOOOE+OO 

1.000 

3.000 

1.000 

1.0000E+06 

2.5000E+04 

2.5000E+04 

1.5000E+04 

I.2500E+04 

1.5000E+04 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

5.0000E-02 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

1.0000E+06 

2.5000E+04 

2.5000E+04 

1 .S000E+04 

1.2500E+04 

1.5000E+04 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

.1000 

90.00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

1.0000E+06 

2.5000E+04 

2.5000E+04 

1.5000E+04 

1.2500E+04 

1.5000E+04 

O.OOOOE+OO 

O.OOOOE+OO 

.2500 

.2500 

.2500 

5.0000E-02 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

.3330 

.3330 

.3330 

1.000 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2.000 

O.OOOOE+OO 

1.000 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

1.000 

O.OOOOE+OO 

E  L  E 

M  E  N  T  S 

E  T  S 

. 

SET  N1 

MEMBERS  1 

2 

3  4 

5 

6  7 

8 

NODE  SETS 


SE1 

NOUT 

MEMBERS 

1 

2 

3 

4 

5 

6 

7 

8 

9 

SET 

NCEN 

MEMBERS 

10 

11 

12 

13 

14 

15 

-  16 

» 7 

NODE  DEFINITIONS 


NODE 

COORDINATES 

NUMBER 

NORMAL 


SINGLE  POINT  CONSTRAINTS 
TYPE  PLUS  DOF 


1 

C.OOOOOE+OO 

O.OOOOOE+OC 

C.OOOOOE+OO 

C.OOOOOE+OC 

C.OOOOOE+OC 

C.OOOOOE+OO 

*  2 

3 

4 

t 

6 

2 

.50000 

0.00000E+0C 

c.ooocoe+oc 

C.OOOOOE+OO 

C.OOOOOE+OO 

C.OOOOOE+OO 

3 

I 

6 

3 

1.0000 

C.OCOOOE+OO 

C.OOOOOE+OC 

c.coooot+or 

C.OOOOOF+OC 

C.OOOOOE+OO 

• 

l 

i 

< 

C.OOOOOE+OO 

.50000 

l.CCCOOJ  +0C 

C.OOOOOE+OC 

c.oooooE+or 

C.00000F+0U 

tt 

6 

5 

.50000 

.50000 

C .  CCCCOE+OD 

C.OOOOOE+OC 

C.OOOOOE+OC 

C.OOOOOE+OC 

t 

6 

I. 0000 

.50000 

C.COOOOE+OC 

C.OOOOOfc+OC 

C.OOOOOE+OC 

C.OOOOOE+OC 

3 

4 

c 

7 

C.OOOOOE+OO 

1.0000 

O.COOOOL+OC 

C.OOOOOE+OC 

C.OOOOOE+OC 

O.OOOOOE+OC 

*  » 

3 

4 

4 

6 

8 

.50000 

1. 0000 

C.OOOOOE+OO 

C.00000F.+0C 

C.OOOOOE+OO- 

C.OOOOOE+OO 

l 

3 

l 

£• 

9 

1.0000 

I. 0000 

C.OOOOOE+OC 

C.OOOOOE+OC 

C.OOOOOE+OO 

c.ooooot«oc 

i  r 

r 

i 

€ 

10 

.16667 

.16667 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOUE+OQ 

O.OOOOOE+OO 

3 

4 

5 

6 

n 

.33333 

.33333 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

3 

4 

5 

6 

12 

,66667 

.33333 

0  .OOOOOE  +  OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

0.60000E+00 

3 

4 

5 

6 

13 

.83333 

.16667 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

3 

4 

5 

6 

14 

.16667 

.83333 

0. 00000E+00 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

3 

4 

5 

6 

15 

.33333 

.66667 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

3 

4 

5 

6 

is 

.66667 

.66667 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

0 . OOOOOE+OO 

3 

4 

5 

6 

17 

.83333 

.83333 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

O.OOOOOE+OO 

3 

4 

5 

6 

S  T 

E  P  1 

CALC 

U  L  A  T  I  0  N 

OF  El 

G  E  N  V  A  L 

U  E  S 

FOR  NATURAL  FREQUENCIES 


NUMBER  OF  EIGENVALUES  5 

HIGHEST  FREQUENCY  OF  INTEREST  .10000E+19 
MAXIMUM  NUMBER  OF  ITERATIONS  30 

NUMBER  OF  VECTORS  IN  ITERATION  10 

THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFINED  AS  CHANGE  IN  LOAD  TO  THE  REFERENCE  STATE 
EXTRAPOLATION  WILL  NOT  BE  USED 
PRINT  OF  INCREMENT  NUMBER,  TIKE,  ETC.,  EVERY 


1  INCREMENTS 


NODE  PRINT 


THE  FOLLOWING  TABLE  IS  PRINTED  FOR  NODESET  NOUT 


AT  EVERY 


INCREMENT 


SUMMARIES  WILL  BE  PRINTED 

THIS  DATA  IS  PRINTED  FOR  ALL  EIGENVALUE  MODES 


NODE 


TABLE 

1  U1 

U2  U3 

UR1 

UR2 

UR3 

BOUNDARY  C 

0  N  D 

I  T 

ION 

S 

DOF 

AMP. 

MAGNITUDE 

NODE 

DOF 

AMP. 

MAGNITUDE 

REF. 

REF. 

1 

6 

(STEP) 

O.OOOOOE+OO 

1 

1 

(STEP) 

O.OOOOOE+OO 

1 

2 

(STEP) 

O.COOOOE+OO 

1 

3 

(STEP) 

O.OOOOOE+OO 

1 

4 

(STEP) 

O.OOOOOE+OO 

1 

5 

(STEP) 

O.OOOOOE+OO 

2 

6 

(STEP) 

O.OOOOOE+OO 

2 

1 

(STEP) 

O.OOOOOE+OO 

2 

3 

(STEP) 

O.OOOOOE+CO 

2 

5 

(STEP) 

O.OOOOOE+OO 

3 

6 

(STEP) 

O.OOOOOE+OO 

3 

1 

(STEP) 

O.OOOOOE+OO 

3 

2 

(STEP) 

O.OOOOOE+OO 

3 

3 

(STEP) 

O.OOOOOE+OO 

3 

4 

(STEP) 

O.OOOOOE+OO 

3 

5 

(STEP) 

O.OOOOOE+OO 

4 

6 

(STEP) 

O.OOOOOE+OO 

4 

2 

(STEP) 

O.OOOOOE+OO 

4 

3 

(STEP) 

O.OOOOOE+CO 

4 

4 

(STEP) 

O.OOOOOE+OO 

5 

6 

(STEP) 

O.OOOOOE+OO 

6 

6 

(STEP) 

O.OOOOOE+OO 

6 

2 

(STEP) 

O.OOOOOE+OO 

6 

3 

(STEP) 

O.OOOOOE+OO 

6 

4 

(STEP) 

O.OOOOOE+OO 

7 

6 

(STEP) 

O.OOOOOE+OO 

7 

1 

(STEP) 

O.OOOOOE+OO 

7 

2 

(STEP) 

O.OOOOOE+OO 

7 

3 

(STEP) 

O.OOOOOE+OO 

1 

4 

(STEP) 

O.OOOOOE+OO 

7 

5 

(STEP) 

O.OOOOOE+OO 

8 

6 

(STEP) 

O.OOOOOE+OO 

8 

1 

(STEP) 

O.OOOOOE+OO 

8 

3 

(STEP) 

O.OOOOOE+OO 

8 

5 

(STEP) 

O.OOOOOE+OO 

9 

6 

iSTEP) 

O.OOOOOE+OO 

9 

1 

(STEP) 

O.OOOOOE+OO 

9 

2 

(STEP) 

O.OOOOOE+OO 

9 

3 

(STEP) 

O.OOOOOE+OO 

9 

4 

(STEP) 

O.OOOOOE+OO 

9 

5 

(STEP) 

O.OOOOOE+OO 

10 

3 

(STEP) 

O.OOOOOE+OO 

10 

4 

(STEP) 

O.OOOOOE+OO 

10 

5 

(STEP) 

O.OOOOOE+OO 

10 

6 

(STEP) 

C. OOOOOE+OO 

1) 

3 

(STEP) 

O.OOOOOE+OO 

11 

4 

(STEP) 

O.OOOOOE+OO 

11 

5 

(STEP) 

O.OOOOOE+OO 

11 

6 

(STEP) 

O.OOOOOE+OO 

12 

3 

(STEP) 

O.OOOOOE+OO 

12 

4 

(STEP) 

O.OOOOOE+OO 

12 

5 

(STEP) 

O.COOOOE+OO 

12 

6 

(STEP) 

O.OOOOOE+OO 

13 

3 

(STEP) 

O.OOOOOE+OO 

13 

4 

(STEP) 

O.OOOOOE+OO 

13 

5 

(STEP) 

O.OOOOOE+OO 

13 

6 

(STEP) 

0. OOOOOE+OO 

14 

3 

(STEP) 

0. OOOOOE+OO 

14 

4 

(STEP) 

O.OOOOOE+OC 

14 

5 

(STEP) 

O.OOOOOE+OO 

14 

6 

(STEP) 

O.OOOOOE+OO 

IS 

3 

(STEP) 

o.nooooE+oo 

15 

4 

(STEP) 

0. OOOOOE+OO 

15 

5 

(STEP) 

O.OOOOOE+OO 

13 

6 

(STEP) 

0. OOOOOE+OO 

16 

3 

(STF.P) 

O.OOOOOE+OO 

16 

4 

(STEP) 

O.OOOOOE+OO 

16 

5 

(STEP) 

O.OOOOOE+OO 

16 

6 

(STEP) 

C. OOOOOE+OO 

17 

3 

(STEP) 

O.OOOOOE+OO 

17 

4 

(STEP) 

C. OOOOOE+OO 

17 

5 

(STEP) 

O.OOOOOE+OO 

17 

6 

(STEP) 

C. OOOOOE+OO 

(RAMP)  OR 

(STEP)  - 

INDICATE  USE  OF  DEFAULT 

AMPLI1 

rUDES 

ASSOC 

IATED  WITH 

THE  STEP 

u  v  t  r  f 


i. 


t. 


(.UMBER  OP  NODE!  I' 

NUMBER  0*'  ELEMENT:  6 

ORIGINAL  MAXIMUM  L.C.r  WAVEFRONT  ESTIMATED  AS 

ORIGINAL  RMS  L.O.'  WAVEFRONT  ESTIMATE!:  AS 


30 

20 


101 


PERIPHERAL  DIAMETER  IS  DEFINED  BY  NODES 


10 


11 


WAVEFRONT  OPTIMIZED  BY  CHOOSING  11  AS  THE  STARTING  NODE 

OPTIMIZER  IS  UNSUCCESSFUL  IN  RENUMBERING  ELEMENTS 

P.  ROBLEM  SIZE 


NUMBER  OF  ELEMENTS  IS  8 

NUMBER  OF  NODES  IS  1? 

NUMBER  OF  NODES  DEFINED  BY  THE  USER  )7 

NUMBER  OF  INTERNAL  NODES  GENERATED  BY  THE  PROGRAM  0 

TOTAL  NUMBER  OF  VARIABLES  IN  THE  MODEL  102 

(DEGREES  OF  FREEDOM  PLUS  ANY  LAGRANGE  MULTIPLIER  VARIABLES) 
MAXIMUM  D.O.F.  WAVEFRONT  ESTIMATED  AS  30 

RMS  WAVEFRONT  ESTIMATED  AS  29 


FILE  SIZES  -  THESE  VALUES  ARE  IN  WORDS  AND  ARE  CONSERVATIVE  UPPER  BOUNDS 


UNIT  LENGTH 


1 

21 

22 

30 


2792 

272 

272 

96 


IF  THE  RESTART  FILE  IS  WRITTEN  ITS  LENGTH  WILL  BE  APPROXIMATELY 
3317  WORDS  WRITTEN  IN  THE  PRE  PROGRAM 
PLUS  149  WORDS  WRITTEN  AT  THE  BEGINNING  OF  EACH  STEP 

PLUS  2340  WORDS  FOR  EACH  INCREMENT  WRITTEN  TO  THE  RESTART  FILE 


JOB  TIME  SUMMARY 

CPU  TIME  (SEC)  *  .63000 

SEC)  -  .63000 


STEP 


CALCULATION  OF  EIGENVALUES 
FOR  NATURAL  FREQUENCIES 


NUMBER  OF  EIGENVALUES 
HIGHEST  FREQUENCY  OF  INTEREST 
MAXIMUM  NUMBER  OF  ITERATIONS 
NUMBER  OF  VECTORS  IN  ITERATION 


. 10000E+19 
30 
10 


S 


THIS  IS  A  LINEAR  PERTURBATION  STEP. 

ALL  LOADS  ARE  DEFINED  AS  CHANGE  IN  LOAD  TO  THE  REFERENCE  STATE 


TOTAL  MASS  OF  MODEL  ASSOCIATED  WITH  EACH  DIRECTION 

(MASS  MAY  BE  DIFFERENT  IN  DIFFERENT  DIRECTIONS  IF  POINT  MASSES  HAVE  BEEN  INTRODUCED) 
DIRECTION  1  DIRECTION  2  DIRECTION  3 


.267  .248  .227 


LOCATION  OF  THE  CENTER  OF  MASS  OF  THE  MODEL 
S.OOOE-Ol  5.000E-01  O.OOOE+OO 


MOMENTS  OF  INERTIA  ABOUT  THE  ORIGIN 

I  (XX)  I(YY)  I(ZZ) 

8.863E-02  8.248E-02  .150 


PRODUCTS  OF  INERTIA  ABOUT  THE  ORIGIN 

I(XY)  liXZ)  I(YZ) 

6.667E-02  C.OOOE+OO  8.674E-19 

MOMENTS  OF  INERTIA  ABOUT  THE  CENTER  OF  MASS 
I  (XX)  I(YY)  IIZZ) 

2 . 196E-02  2.048E-02  3.667E-02 


PRODUCTS  OF  INERTIA  ABOUT  THE  CENTER.  OF  MASS 


I  (XY) 

:  (xzi 

KYZ) 

1.SC0F-0? 

L .COOP *  DC 

fc.6741  -1? 

E  : 

C.  t  N  V  A  .  1  C 

t  i:  T  !•  ('  T 

NO 

EIGENVALUE 

FREQUENCY 

generalize:  mass 

COMPOSITE  MODAL  DAMP  INC 

(RAD/TIME) 

(CYCLES/TIME) 

1 

1 . 61171E+05 

401.46 

63.395 

3.85765E-02 

O.OOOOOE+OO 

2 

1.79837E+05 

424.07 

67.493 

6 . 63065E-02 

0 . OOOOOE+OO 

3 

1.79837E+05 

424.07 

67.493 

6. 63065E-02 

0.00000E+00 

4 

1 . 34118E+06 

1158.1 

184.32 

4.52038E-04 

0.00000E+00 

* 

5 

2 , 06608E+06 

1437.4 

228.77 

3 . 47775E-04 

0.00000E+00 

PARTI  C  IP 

A  T  I  0  N  FA 

C  T  0  R  S 

MODE 

NO 

X-COMPONENT 

Y-COMPONENT 

Z-COMPONENT 

X-ROTATION 

Y-ROTATION 

Z-ROTATION 

1 

S.93378E-I5 

.24951 

1.8768 

.93838 

-.93838 

.12475 

2 

-1.28000E-05 

1.5045 

1.09180E-15 

5.59230E-16 

-2.81353E-16 

.75221 

3 

1.5045 

1.28000E-05 

1.27514E-15 

6.36317E-16 

-5.37526E-16 

-.75223 

4 

-1.80703E-05 

-1.527S0E-O7 

5.28742E-07 

4.5466 

-8 . 15872E-07 

6.43465E-02 

5 

-3.07371E-04 

-1.20822E-06 

2.64896E-0S 

1.26053E-05 

4.2705 

-.45501 

E  F  F 

E  C  T  I  V  E  M 

ASS 

MODE 

NO 

X-COMPONENT 

Y-COMPONENT 

Z-COMPONENT 

X-ROTATION 

Y-ROTAT  ON 

Z-ROTATICN 

1 

1.85465E-30 

2.40152E-03 

.13588 

3 . 39691E-02 

3.39691E-02 

6.00381E-04 

2 

1.08637E-11 

.15009 

7 . 90392E-32 

2.07366E-32 

5.2480UE-33 

3.75173E-02 

3 

.15009 

1.08637E-11 

1.07814E-31 

2 . 68474E-32 

1 . 91582E-32 

3.75198E-02 

4 

1 .47607E-13 

1.05472E-17 

1.2637SE-16 

9.34449E-03 

3.00897E-16 

1.87165E-06 

5 

3.28567E-11 

5.07680E-16 

2.44033E-13 

5 . 52591E-14 

6.34246E-03 

7.20003E-05 

TOTAL 

.15009 

.15249 

.13588 

4.33136E-02 

4.03116E-02 

7.57113E-02 

EIGENVALUE  NUMBER  1 
NODE  OUTPUT 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  NODESET  NOUT 


NODE  FOOT¬ 

Ul 

U2 

U3 

UR1 

UR2 

UR  3 

NOTE 

2 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2.223 

O.OOOOE+OO 

O.OOOOE+OO 

4 

0.0000E+00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

-.5488 

O.OOOOE+OO 

5 

O.OOOOE+OO 

O.OOOOE+OO 

1.000  -9.2600E-11 

-2 . 2083E-11 

O.OOOOE+OO 

6 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

.5488 

O.OOOOE+OO 

8 

O.0OCOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

-2.223 

O.OOOOE+OO 

O.OOOOE+OO 

MAXIMUM 

O.OOOOE+OO 

O.OOOOE+OO 

1.000 

2.223 

.5488 

O.OOOOE+OO 

AT  NODE 

1 

1 

5 

2 

£ 

1 

MINIMUM 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

-2.223 

-.5488 

O.OOOOE+OO 

AT  NODE 

1 

1 

1 

8 

4 

1 

E  I  G 

E  N  V  A  L  U 

E  NUMB 

E  R  2 

NODE  0 

U  T  P  U  T 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  NODESET  NOUT 

NOuF  FOOT¬ 

■  Ul 

U2 

U3 

UR1 

UR2 

uru 

NOTE 

2 

O.OOOOE+OO 

.9928 

C. OOOOE  +  OO  ■ 

-9 . 1922E- 15 

O.OOOOE+OO 

O.OOOOE+OO 

4 

-8.4463E-06 

O.OOOOE+OO 

0. OOOOE+OO 

O.OOOOE+OO 

1.12C1E-14 

O.OOOOE+OO 

5 

-8.S077E-06 

1.000 

C. OOOOE+OO 

1.1074E-14 

1 . 8538E-15 

O.OOOOE+OO 

6 

-8.4463E-06 

O.OOOOE+OO 

C. OOOOE+OO 

O.OOOOE+OO 

-6.3215E-14 

C. OOOOE+OO 

8 

C . OOOOE+OO 

.9928 

0. OOOOE+OO 

3.7601E-14 

O.OOOOE+OO 

O.OOOOE+OO 

MAXIMUM 

O.OOOOE+OO 

1.000 

0. OOOOE+OO 

8 . 7601E-14 

1.1201E-14 

O.OOOOE+OO 

AT  NODE 

i 

5 

1 

8 

4 

1 

MINIMUM 

-8.5077&-06 

C. OOOOE+OO 

C. OOOOE+OO  • 

-9.1922E-I5 

-6.3215E-14 

O.OOOOE+OO 

AT  NODE 

5 

A 

2 

•  6 

1 

E  I  G 

nvAit 

E  NUMB 

E  R  3 

i:  C  C  E  OUTPUT 


THE  FOLLOWING  TABLE.  IS  PRINTED  FOP  NODESET  NOUT 


NODE  FOOT-  L'l  U 2  U3  '  UR1  UR2 

NOTE 

C. 00001*31  S.44CJI-0f  L. 0000!  -DC  ‘-.00881-15  C.OOOOF-OC 
4  .99?!  0.00001*00  C.OCOOL+OC  O.OOOOE*OC  7. 41055-15 

l  1 .00!  fc.50‘’7! -06  O.OOOOF*OC  -‘..30791-19  4.65385-16 

6  . 9926  0.00C0M0C  5.00001+00  G.0000E+CC  -T. 85555-14 

t  O.OCOOr+OO  l,.4463r-0f  0.0000!  *0C  -1.B4081-I4  c.oooof*oo 


UR3 

C.0009£*00 
C.0000£*00 
C . CpOOE+OO 
0 . OOOOE+OO 
C.0OOCE*00 


MAXIMUM 

AT  NODE 

1.P00 

5 

8.S077E-06 

c 

O.OOOOE+OO 

1 

9.0088E-15  7.4105E-15 

2  4 . 

O.OOOOE+OO 

1 

MINIMUM 

AT  NODE 

O.OOOOE+OO 

1 

O.OOOOE+OO 

I 

O.OOOOE+OO 

1 

-1.8408E-14  -2.8555E-14 
'  8  6 

O.OOOOE+OO 

1 

EIGENVALUE  N 

u 

M  B 

E 

R 

4 

NOD 

E 

0 

U 

T  P 

U  T 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  NODESET  NOUT 

NODE 

FOOT-  U1  U2 

NOTE 

U3 

UR1 

UR2 

UR3 

2 

O.OOOOE+OO  -3 . 9328E-08 

‘O.OOOOE+OO 

-.3312 

O.OOOOE+OO 

O.OOOOE+OO 

4 

5.527SE-08  O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

-1 . 9931E-07 

O.OOOOE+OO 

5 

-2.4498E-09  -1.0240E-08 

-4.4542E-08 

1.000 

-2.3S96E-08 

O.OOOOE+OO 

S 

-4.7208E-08  O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

9.5804E-07 

O.COOOE+OO 

8 

O.OOOOE+OO  7.3736E-09 

O.OOOOE+OO 

-.3312 

O.OOOOE+OO 

O.OOOOE+OO 

MAXIMUM 

5.5276E-08  7.3736E-08 

O.OOOOE+OO 

1.000 

9.5804E-07 

O.OOOOE+OO 

AT  NODE 

4  8 

1 

5 

6 

1 

MINIMUM 

-4.7208E-08  -3.9328E-08 

-4.4542E-08 

-.3312 

-1 . 9931E-07 

O.OOOOE+OO 

AT  NODE 

6  2 

EIGENVALU 

S 

E  NUMB 

NODE  0 

8 

E  R  S 

U  T  P  U  T 

4 

1 

THE  FOLLOWING  TABLE  IS  PRINTED  FOR  NODESET  NOUT 

NODE 

FOOT-  U1 

NOTE 

U2 

U3 

UR1 

UR2 

UR3 

2 

O.OOOOE+OO 

-1.881SE-06 

O.OOOOE+OO 

1.1580E-05 

O.OOOOE+OO 

O.OOOOE+OO 

4 

-7.37S6E-08 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

.7977 

O.OOOOE+OO 

5 

-3.89OOE-07 

-2.0010E-07 

-1.2175E-06 

-2.5895E-06 

1.0000 

O.OOOOE+OO 

e 

1.3821E-06 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

.7978 

O.OOOOE+OO 

8 

O.OOOOE+OO 

2.5497E-06 

O.OOOOE+OO 

-2 . 9885E-05 

O.OOOOE+OO 

O.OOOOE+OO 

MAXIMUM 

1.3821E-06 

2.S497E-06 

O.OOOOE+OO 

1.1580E-05 

1.0000 

O.OOOOE+OO 

AT  NODE 

6 

8 

1 

2 

5 

1 

MINIMUM 

-3.8900E-07 

-1.8815E-06 

-1.2175E-06 

-2.9885E-05 

O.OOOOE+OO 

O.OOOOE+OO 

AT  NODE 

S 

2 

5 

8 

1 

1 
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